Remove call to zcashd
to validate VK
This commit is contained in:
parent
493d17abfd
commit
3f3cb9ef7c
1 changed files with 2 additions and 19 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue