1 files changed, 7 insertions, 7 deletions
diff --git a/dht/src/Data/Tox/Message.hs b/dht/src/Data/Tox/Message.hs
index 9f1ce339..93750f90 100644
--- a/dht/src/Data/Tox/Message.hs
+++ b/dht/src/Data/Tox/Message.hs
@@ -9,11 +9,11 @@ import Data.Word
 -- | The one-byte type code prefix that classifies a 'CryptoMessage'.
 newtype MessageID = MessageID Word8 deriving (Eq,Enum,Ord,Bounded)
-pattern Padding              = MessageID   0 -- ^ 0 padding (skipped until we hit a non zero (data id) byte)
+pattern Padding              = MessageID   0 -- 0 padding (skipped until we hit a non zero (data id) byte)
-pattern PacketRequest        = MessageID   1 -- ^ 1 packet request packet (lossy packet)
+pattern PacketRequest        = MessageID   1 -- 1 packet request packet (lossy packet)
-pattern KillPacket           = MessageID   2 -- ^ 2 connection kill packet (lossy packet)
+pattern KillPacket           = MessageID   2 -- 2 connection kill packet (lossy packet)
-pattern UnspecifiedPacket003 = MessageID   3 -- ^ 3+ unspecified
+pattern UnspecifiedPacket003 = MessageID   3 -- 3+ unspecified
-pattern PING                 = MessageID  16 -- ^ 16+  reserved for Messenger usage (lossless packets)
+pattern PING                 = MessageID  16 -- 16+  reserved for Messenger usage (lossless packets)
 -- TODO: rename to ALIVE 16
 -- SHARE_RELAYS 17
 -- FRIEND_REQUESTS 18
@@ -40,9 +40,9 @@ pattern DIRECT_GROUPCHAT     = MessageID  98 -- 0x62
 pattern MESSAGE_GROUPCHAT    = MessageID  99 -- 0x63
 -- TODO: rename to MESSAGE_CONFERENCE 99
 -- LOSSLESS_RANGE_START 160
-pattern MessengerLossy192    = MessageID 192 -- ^ 192+ reserved for Messenger usage (lossy packets)
+pattern MessengerLossy192    = MessageID 192 -- 192+ reserved for Messenger usage (lossy packets)
 pattern LOSSY_GROUPCHAT      = MessageID 199 -- 0xC7
-pattern Messenger255         = MessageID 255 -- ^ 255 reserved for Messenger usage (lossless packet)
+pattern Messenger255         = MessageID 255 -- 255 reserved for Messenger usage (lossless packet)
 instance Show MessageID where
    show Padding              = "Padding"

diff --git a/dht/src/Data/Tox/Message.hs b/dht/src/Data/Tox/Message.hs index 9f1ce339..93750f90 100644 --- a/dht/src/Data/Tox/Message.hs +++ b/dht/src/Data/Tox/Message.hs
@@ -9,11 +9,11 @@ import Data.Word
9		9
10	-- \| The one-byte type code prefix that classifies a 'CryptoMessage'.	10	-- \| The one-byte type code prefix that classifies a 'CryptoMessage'.
11	newtype MessageID = MessageID Word8 deriving (Eq,Enum,Ord,Bounded)	11	newtype MessageID = MessageID Word8 deriving (Eq,Enum,Ord,Bounded)
12	pattern Padding = MessageID 0 -- ^ 0 padding (skipped until we hit a non zero (data id) byte)	12	pattern Padding = MessageID 0 -- 0 padding (skipped until we hit a non zero (data id) byte)
13	pattern PacketRequest = MessageID 1 -- ^ 1 packet request packet (lossy packet)	13	pattern PacketRequest = MessageID 1 -- 1 packet request packet (lossy packet)
14	pattern KillPacket = MessageID 2 -- ^ 2 connection kill packet (lossy packet)	14	pattern KillPacket = MessageID 2 -- 2 connection kill packet (lossy packet)
15	pattern UnspecifiedPacket003 = MessageID 3 -- ^ 3+ unspecified	15	pattern UnspecifiedPacket003 = MessageID 3 -- 3+ unspecified
16	pattern PING = MessageID 16 -- ^ 16+ reserved for Messenger usage (lossless packets)	16	pattern PING = MessageID 16 -- 16+ reserved for Messenger usage (lossless packets)
17	-- TODO: rename to ALIVE 16	17	-- TODO: rename to ALIVE 16
18	-- SHARE_RELAYS 17	18	-- SHARE_RELAYS 17
19	-- FRIEND_REQUESTS 18	19	-- FRIEND_REQUESTS 18
@@ -40,9 +40,9 @@ pattern DIRECT_GROUPCHAT = MessageID 98 -- 0x62
40	pattern MESSAGE_GROUPCHAT = MessageID 99 -- 0x63	40	pattern MESSAGE_GROUPCHAT = MessageID 99 -- 0x63
41	-- TODO: rename to MESSAGE_CONFERENCE 99	41	-- TODO: rename to MESSAGE_CONFERENCE 99
42	-- LOSSLESS_RANGE_START 160	42	-- LOSSLESS_RANGE_START 160
43	pattern MessengerLossy192 = MessageID 192 -- ^ 192+ reserved for Messenger usage (lossy packets)	43	pattern MessengerLossy192 = MessageID 192 -- 192+ reserved for Messenger usage (lossy packets)
44	pattern LOSSY_GROUPCHAT = MessageID 199 -- 0xC7	44	pattern LOSSY_GROUPCHAT = MessageID 199 -- 0xC7
45	pattern Messenger255 = MessageID 255 -- ^ 255 reserved for Messenger usage (lossless packet)	45	pattern Messenger255 = MessageID 255 -- 255 reserved for Messenger usage (lossless packet)
46		46
47	instance Show MessageID where	47	instance Show MessageID where
48	show Padding = "Padding"	48	show Padding = "Padding"