Don't pack a single byte.
Run peer message handling in a State monad transformer.
TODO.
Depend on mtl.