bug fix in estimateSmartFee

wraithm · Mar 11, 2019 · d5886eb · d5886eb
1 parent fce34a3
commit d5886eb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Network/Bitcoin/Wallet.hs b/src/Network/Bitcoin/Wallet.hs
@@ -770,7 +770,7 @@ instance ToJSON EstimationMode where
 -- | Estimate the fee per kb to send a transaction
 estimateSmartFee :: Client -> Word32 -> Maybe EstimationMode -> IO Double
 estimateSmartFee client target mode =
-    parse <$> callApi client "estimatesmartfee" (catMaybes [ Just $ tj target, tj <$> mode ])
+    parse =<< callApi client "estimatesmartfee" (catMaybes [ Just $ tj target, tj <$> mode ])
     where
-    parse = either (throw . BitcoinResultTypeError . BSL8.pack) id . parseEither parseResp
+    parse = either (throw . BitcoinResultTypeError . BSL8.pack) pure . parseEither parseResp
     parseResp = withObject "estimatesmartfee response" (.: "feerate")