diff options
| author | joe <joe@jerkface.net> | 2018-06-22 22:16:55 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-06-22 22:16:55 -0400 |
| commit | 9d8a4436a2d894030a51bba2b773901ffdc4788d (patch) | |
| tree | f583e9c4a98c7085eaca33f9a9d39dad58a70351 /src/Network/Tox | |
| parent | f5f854c8144dc29086928a94b2ea86cfae0d0557 (diff) | |
Quieted some warnings.
Diffstat (limited to 'src/Network/Tox')
| -rw-r--r-- | src/Network/Tox/DHT/Transport.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Network/Tox/DHT/Transport.hs b/src/Network/Tox/DHT/Transport.hs index c6fe121c..0c69ea8b 100644 --- a/src/Network/Tox/DHT/Transport.hs +++ b/src/Network/Tox/DHT/Transport.hs | |||
| @@ -69,12 +69,12 @@ data DHTMessage (f :: * -> *) | |||
| 69 | | DHTLanDiscovery NodeId | 69 | | DHTLanDiscovery NodeId |
| 70 | 70 | ||
| 71 | deriving instance ( Show (f (Cookie Encrypted)) | 71 | deriving instance ( Show (f (Cookie Encrypted)) |
| 72 | , Show (Asymm (f Ping)) | 72 | , Show (f Ping) |
| 73 | , Show (Asymm (f Pong)) | 73 | , Show (f Pong) |
| 74 | , Show (Asymm (f GetNodes)) | 74 | , Show (f GetNodes) |
| 75 | , Show (Asymm (f SendNodes)) | 75 | , Show (f SendNodes) |
| 76 | , Show (Asymm (f CookieRequest)) | 76 | , Show (f CookieRequest) |
| 77 | , Show (Asymm (f DHTRequest)) | 77 | , Show (f DHTRequest) |
| 78 | ) => Show (DHTMessage f) | 78 | ) => Show (DHTMessage f) |
| 79 | 79 | ||
| 80 | mapMessage :: forall f b. (forall a. Nonce24 -> f a -> b) -> DHTMessage f -> Maybe b | 80 | mapMessage :: forall f b. (forall a. Nonce24 -> f a -> b) -> DHTMessage f -> Maybe b |