Haskell p2p instant messenger