src/ZGoBackend.hs

@@ -1186,25 +1186,8 @@ routes pipe config = do
                          Nothing -> status badRequest400
                          Just o' -> do
                            unless (oviewkey o' /= "") $ do
-                             vkInfo <-
+                             liftAndCatchIO $ run (upsertViewingKey o' q)
-                               liftAndCatchIO $
+                             status created201
-                               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
                      else status forbidden403
               else status badRequest400 -- TODO: add Unified VK support
     --Get items associated with the given address