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

Unified Address support #8

Merged
pitmutt merged 61 commits from dev18 into master 2023-10-28 12:24:28 +00:00
Conversation 0 Commits 61 Files changed 11 +2 -19
1 changed files with 2 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 3f3cb9ef7c - Show all commits

17
src/ZGoBackend.hs
View file

@ -1186,25 +1186,8 @@ routes pipe config = do
Nothing -> status badRequest400 Nothing -> status badRequest400
Just o' -> do Just o' -> do
unless (oviewkey o' /= "") $ do unless (oviewkey o' /= "") $ do
vkInfo <-
liftAndCatchIO $
makeZcashCall
nodeUser
nodePwd
"z_importviewingkey"
[ Data.Aeson.String (T.strip . T.pack $ q)
, "no"
] -- TODO: Remove this call to the node
let content =
getResponseBody vkInfo :: RpcResponse Object
if isNothing (err content)
then do
_ <-
liftAndCatchIO $ run (upsertViewingKey o' q) liftAndCatchIO $ run (upsertViewingKey o' q)
status created201 status created201
else do
text $ L.pack . show $ err content
status badRequest400
else status forbidden403 else status forbidden403
else status badRequest400 -- TODO: add Unified VK support else status badRequest400 -- TODO: add Unified VK support
--Get items associated with the given address --Get items associated with the given address