putMessages' :: [Message] -> B.ByteString
putMessages' ms = runPut $
  mapM_ putMessage ms
putMessages' :: [Message] -> B.ByteString
putMessages' ms = runPut $
  mapM_ putMessage ms
putMessages' ms = runPut $
  mapM_ putMessage ms