[Haskell-cafe] Turning a message parser into a protocol handler