From 10cebfb3bf311d386af2a849c13e5e99bd975f57 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 7 Dec 2013 03:34:49 +0400 Subject: Prettify pretty instances --- src/Network/BitTorrent/Exchange/Message.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Network/BitTorrent/Exchange') diff --git a/src/Network/BitTorrent/Exchange/Message.hs b/src/Network/BitTorrent/Exchange/Message.hs index af212c3b..8659eb89 100644 --- a/src/Network/BitTorrent/Exchange/Message.hs +++ b/src/Network/BitTorrent/Exchange/Message.hs @@ -712,8 +712,8 @@ data ExtendedMessage instance Pretty ExtendedMessage where pretty (EHandshake ehs) = pretty ehs - pretty (EMetadata _ msg) = pretty msg - pretty (EUnknown mid _ ) = "Unknown" <+> PP.text (show mid) + pretty (EMetadata _ msg) = "Metadata" <+> pretty msg + pretty (EUnknown mid _ ) = "Unknown" <+> PP.text (show mid) instance PeerMessage ExtendedMessage where envelop _ = Extended @@ -761,7 +761,7 @@ instance Default Message where -- | Payload bytes are omitted. instance Pretty Message where pretty (KeepAlive ) = "Keep alive" - pretty (Status m) = pretty m + pretty (Status m) = "Status" <+> pretty m pretty (Available m) = pretty m pretty (Transfer m) = pretty m pretty (Port p) = "Port" <+> int (fromEnum p) -- cgit v1.2.3