@hackage network-bitcoin1.9.1

This can be used to send Bitcoins, query balances, etc. It requires the Bitcoin daemon to be running and accessible via HTTP.

import Network.Bitcoin

main = do
   client <- getClient "http://127.0.0.1:8332" "user" "password"
   balance <- getBalance client
   putStrLn $ show balance ++ " BTC"

To learn more about Bitcoin, see http://www.bitcoin.org.