Realworldhaskell is a project mainly written in Haskell, it's free.

My bumblings through the Real World Haskell book