cgaebel/network-bitcoin — pull request #14 by MomemtumMori (2014-04-26 23:48:25+00:00)
Title: Support for listsinceblock

This adds the method `listsinceblock`. I could not reproduce the transaction malleability bug, but I don't think `walletconflicts` is going to be a problem.

I tested it in `ghci` using the following snippet :
```
Prelude Network.Bitcoin> import Data.Text
Prelude Data.Text Network.Bitcoin> let auth = Auth (pack "...") (pack "...") (pack "...")
Prelude Data.Text Network.Bitcoin> :set +m
Prelude Data.Text Network.Bitcoin> let lsb = do
Prelude Data.Text Network.Bitcoin| bh <- getBlockHash auth 226000
Prelude Data.Text Network.Bitcoin| stuff <- listSinceBlock auth bh Nothing
Prelude Data.Text Network.Bitcoin| print stuff
Prelude Data.Text Network.Bitcoin|
Prelude Data.Text Network.Bitcoin> lsb
SinceBlock {transactions = fromList [SinceBlockTransaction {sbtReceivingAccount = "Some account", sbtAddress = "Some address", sbtCategory = "receive", sbtAmountBitcoin = 1.80000000, sbtConfirmations = 131, sbtBlockHash = "Some hash", sbtBlockIndex = 1, sbtBlockTime = 1.39e9, sbtTransactionId = "Some txid", sbtWalletConflicts = fromList [], sbtTime = 1398999999, sbtTimeReceived = 1398999999}], lastBlockHash = "Some hash"}
```