diff options
Diffstat (limited to 'src/Network/Tox/Onion/Handlers.hs')
-rw-r--r-- | src/Network/Tox/Onion/Handlers.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Tox/Onion/Handlers.hs b/src/Network/Tox/Onion/Handlers.hs index 76908df8..b06fc2af 100644 --- a/src/Network/Tox/Onion/Handlers.hs +++ b/src/Network/Tox/Onion/Handlers.hs | |||
@@ -42,7 +42,7 @@ import Data.Functor.Identity | |||
42 | type Client r = QR.Client String PacketKind TransactionId (OnionDestination r) Message | 42 | type Client r = QR.Client String PacketKind TransactionId (OnionDestination r) Message |
43 | type Message = OnionMessage Identity | 43 | type Message = OnionMessage Identity |
44 | 44 | ||
45 | classify :: Message -> MessageClass String PacketKind TransactionId | 45 | classify :: Message -> MessageClass String PacketKind TransactionId (OnionDestination r) Message |
46 | classify msg = go msg | 46 | classify msg = go msg |
47 | where | 47 | where |
48 | go (OnionAnnounce announce) = IsQuery AnnounceType | 48 | go (OnionAnnounce announce) = IsQuery AnnounceType |