~ Fix documentation and typos.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/PeerWire/Message.hs b/src/Network/BitTorrent/PeerWire/Message.hs
index e833ba03..3f6647dd 100644
--- a/src/Network/BitTorrent/PeerWire/Message.hs
+++ b/src/Network/BitTorrent/PeerWire/Message.hs
@@ -132,7 +132,10 @@ instance Serialize Message where
   put (AllowedFast   ix) = putInt 5  >> putWord8 0x11 >> putInt ix
 
 
--- | Compact output for logging: only useful information but not payload bytes.
+-- | Format messages in human readable form. Note that output is
+--   compact and suitable for logging: only useful information but not
+--   payload bytes.
+--
 ppMessage :: Message -> String
 ppMessage (Bitfield _)       = "Bitfield "
 ppMessage (Piece blk)        = "Piece "    ++ ppBlock blk