-- | Proxy that parses IRC messages
parseMsg :: (Monad m)
          => Pipe ByteString (Maybe Message) m r
parseMsg = forever $
    await >>= yield . parseComplete messageParser
parseMsg :: (Monad m)
          => Pipe ByteString (Maybe Message) m r
parseMsg = forever $
    await >>= yield . parseComplete messageParser
parseMsg = forever $
    await >>= yield . parseComplete messageParser