Quieted some warnings.

2 files changed, 7 insertions, 7 deletions

diff --git a/src/Network/QueryResponse.hs b/src/Network/QueryResponse.hs
index d612ac05..e4c73cd8 100644
--- a/src/Network/QueryResponse.hs
+++ b/src/Network/QueryResponse.hs
@@ -505,7 +505,7 @@ sockAddrFamily :: SockAddr -> Family
 sockAddrFamily (SockAddrInet  _ _    ) = AF_INET
 sockAddrFamily (SockAddrInet6 _ _ _ _) = AF_INET6
 sockAddrFamily (SockAddrUnix  _      ) = AF_UNIX
-sockAddrFamily (SockAddrCan _        ) = AF_CAN
+sockAddrFamily _                       = AF_CAN -- SockAddrCan constructor deprecated
 
 -- | Packets with an empty payload may trigger EOF exception.
 -- 'udpTransport' uses this function to avoid throwing in that
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 :: * -> *)
     | DHTLanDiscovery NodeId
 
 deriving instance ( Show (f (Cookie Encrypted))
-                  , Show (Asymm (f Ping))
-                  , Show (Asymm (f Pong))
-                  , Show (Asymm (f GetNodes))
-                  , Show (Asymm (f SendNodes))
-                  , Show (Asymm (f CookieRequest))
-                  , Show (Asymm (f DHTRequest))
+                  , Show (f Ping)
+                  , Show (f Pong)
+                  , Show (f GetNodes)
+                  , Show (f SendNodes)
+                  , Show (f CookieRequest)
+                  , Show (f DHTRequest)
                   ) => Show (DHTMessage f)
 
 mapMessage :: forall f b. (forall a. Nonce24 -> f a -> b) -> DHTMessage f -> Maybe b