Compare commits
3 commits
517b736c9a
...
69bce58345
Author | SHA1 | Date | |
---|---|---|---|
69bce58345 | |||
adc7150b81 | |||
3af235377b |
1 changed files with 2 additions and 2 deletions
|
@ -23,7 +23,7 @@ import C.Zcash
|
||||||
, rustWrapperF4Jumble
|
, rustWrapperF4Jumble
|
||||||
, rustWrapperF4UnJumble
|
, rustWrapperF4UnJumble
|
||||||
)
|
)
|
||||||
import Control.Exception (try)
|
import Control.Exception (SomeException(..), try)
|
||||||
import Control.Monad.IO.Class
|
import Control.Monad.IO.Class
|
||||||
import Data.Aeson
|
import Data.Aeson
|
||||||
import qualified Data.ByteString as BS
|
import qualified Data.ByteString as BS
|
||||||
|
@ -91,7 +91,7 @@ makeZebraCall host port m params = do
|
||||||
setRequestMethod "POST" defaultRequest
|
setRequestMethod "POST" defaultRequest
|
||||||
r <-
|
r <-
|
||||||
try $ httpJSON myRequest :: FromJSON a1 =>
|
try $ httpJSON myRequest :: FromJSON a1 =>
|
||||||
IO (Either HttpException (Response (RpcResponse a1)))
|
IO (Either SomeException (Response (RpcResponse a1)))
|
||||||
case r of
|
case r of
|
||||||
Left ex -> return $ Left $ show ex
|
Left ex -> return $ Left $ show ex
|
||||||
Right res -> do
|
Right res -> do
|
||||||
|
|
Loading…
Reference in a new issue