Vergara_Tech/zgo-backend
Vergara_Tech/zgo-backend
2
1
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Viewing key process enhancements

Browse source
This commit is contained in:
Rene Vergara 2022-10-08 07:16:47 -05:00
parent 6bcfbe3bbd
commit d2dcddbeb2
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/ZGoBackend.hs
View file

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