I'm writing a NES emulator in Haskell atm. It's still in progress, so please don't judge the code too harshly :P There's lots of nastiness I mean to fix up:

http://github.com/dbousamra/hnes