network-bitcoin 1.7.0 → 1.7.1

raw patch · 3 files changed

+6/−8 lines, 3 files

Files

• network-bitcoin.cabal +1/−1
• src/Network/Bitcoin/Internal.hs +4/−5
• src/Network/Bitcoin/RawTransaction.hs +1/−2

@@ -1,5 +1,5 @@ Name:                network-bitcoin-Version:             1.7.0+Version:             1.7.1 Synopsis:            An interface to bitcoind. Description:     This can be used to send Bitcoins, query balances, etc.  It

@@ -74,15 +74,14 @@           -> BS.ByteString           -> IO Client getClient url user pass = do+    url' <- parseUrl url     mgr <- newManager defaultManagerSettings+    let baseReq = applyBasicAuth user pass url'+            { method = "POST"+            , requestHeaders = [(hContentType, "application/json")] }     return $ \r -> do         resp <- httpLbs (baseReq { requestBody = RequestBodyLBS r }) mgr         return $ responseBody resp-  where-    baseReq = applyBasicAuth user pass $ (fromJust $ parseUrl url)-                { method = "POST"-                , requestHeaders = [(hContentType, "application/json")]-                }  -- | 'callApi' is a low-level interface for making authenticated API --   calls to a Bitcoin daemon. The first argument specifies

@@ -342,10 +342,9 @@                          , hasCompleteSigSet :: Bool                          } --- I have no idea why they use a 1/0 to represent a boolean. instance FromJSON RawSignedTransaction where     parseJSON (Object o) = RawSignedTransaction <$> o .: "hex"-                                                <*> (toEnum <$> o .: "complete")+                                                <*> o .: "complete"     parseJSON _ = mzero  -- | Sign inputs for a raw transaction.