Merge pull request cgaebel#5 from GambolingPangolin/master

fixes status code in generate rpc call
wraithm · Aug 26, 2019 · f630f02 · f630f02
2 parents 17af259 + 286a257
commit f630f02
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Network/Bitcoin/Mining.hs b/src/Network/Bitcoin/Mining.hs
@@ -39,7 +39,7 @@ import           Network.Bitcoin.Wallet   (getNewAddress)
 import           Network.HTTP.Client      (HttpException (..),
                                            HttpExceptionContent (..),
                                            responseStatus)
-import           Network.HTTP.Types       (status404)
+import           Network.HTTP.Types       (status500)
 
 -- | Returns whether or not bitcoind is generating bitcoins.
 getGenerate :: Client -- ^ bitcoind RPC client
@@ -81,7 +81,7 @@ generate client blocks maxTries =
   where
     args = tj blocks : maybe [] (pure . tj) maxTries
     onFail (HttpExceptionRequest _ (StatusCodeException rsp _))
-        | responseStatus rsp == status404
+        | responseStatus rsp == status500
         = getNewAddress client Nothing >>= flip (generateToAddress client blocks) maxTries
     onFail e = throw e