diff options
| author | joe <joe@jerkface.net> | 2017-10-30 00:45:32 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-10-30 00:45:32 -0400 |
| commit | 4b4266424a6b1d1fb57e29f6c331462d5abb80e1 (patch) | |
| tree | dbfbce692d272f08362e9989a8fffeb676701cdd /src/Network/Tox/Onion/Handlers.hs | |
| parent | 08c02ea307d056a2825d51699e1f2e111d41a7f0 (diff) | |
Tox: LanDiscovery packet. Also: IsUnsolicited query/response
classification.
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 |