Learning Haskell, I write a Bitcoin miner for practice. Currently it's very basic(single thread, non-long-polling support). You are free and welcome to modify it.