3 files changed, 9 insertions, 9 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index f96f0ba7..1821cb1c 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -482,14 +482,14 @@ clientSession s@Session{..} sock cnum h = do
                         "gc" -> do hPutClient h "Performing garbage collection..."
                                    performMajorGC
                         "" -> do
-#if MIN_VERSION_base(4,11,1)
+#if MIN_VERSION_base(4,10,1)
                             is_enabled <- getRTSStatsEnabled
 #else
                             is_enabled <- getGCStatsEnabled
 #endif
                             if is_enabled
                              then do
-#if MIN_VERSION_base(4,11,1)
+#if MIN_VERSION_base(4,10,1)
                                 RTSStats{..} <- getRTSStats
                                 let r = [ ("bytesAllocated", show allocated_bytes)
                                         , ("numGcs", show gcs)
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