diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs index 4cacce7..3c55d77 100644 --- a/src/ZGoBackend.hs +++ b/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