Viewing key process enhancements

src/ZGoBackend.hs

@@ -692,12 +692,12 @@ routes pipe config = do
   post "/api/owner" $ do
     o <- jsonData
     let q = payload (o :: Payload Owner)
-    known <- liftAndCatchIO $ listAddresses nodeUser nodePwd
     if not (opayconf q)
       then do
         _ <- liftAndCatchIO $ run (upsertOwner q)
         status created201
       else do
+        known <- liftAndCatchIO $ listAddresses nodeUser nodePwd
         if oaddress q `elem` map addy known
           then do
             _ <- liftAndCatchIO $ run (upsertOwner q)
@@ -708,7 +708,7 @@ routes pipe config = do
                 nodeUser
                 nodePwd
                 "z_importviewingkey"
-                [Data.Aeson.String (oviewkey q), "no"]
+                [Data.Aeson.String (T.strip (oviewkey q)), "no"]
             let content = getResponseBody vkInfo :: RpcResponse Object
             if isNothing (err content)
               then do