diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs index 7d9de60..9250006 100644 --- a/src/ZGoBackend.hs +++ b/src/ZGoBackend.hs @@ -1186,25 +1186,8 @@ routes pipe config = do Nothing -> status badRequest400 Just 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) - status created201 - else do - text $ L.pack . show $ err content - status badRequest400 + liftAndCatchIO $ run (upsertViewingKey o' q) + status created201 else status forbidden403 else status badRequest400 -- TODO: add Unified VK support --Get items associated with the given address