Also open-source: https://github.com/lukexi/rumpus and yes, written in Haskell : )