1 files changed, 8 insertions, 0 deletions

diff --git a/Hosts.hs b/Hosts.hs
index e53d441..0761597 100644
--- a/Hosts.hs
+++ b/Hosts.hs
@@ -1,5 +1,9 @@
+{-# LANGUAGE CPP                 #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE OverloadedStrings   #-}
+#if ! MIN_VERSION_network(2,4,0)
+{-# LANGUAGE StandaloneDeriving  #-}
+#endif
 module Hosts
     ( Hosts
     , assignName
@@ -31,6 +35,10 @@ import Control.Applicative ( (<$>), (<*>) )
 import Control.Monad (mplus)
 import Network.Socket
 
+#if ! MIN_VERSION_network(2,4,0)
+deriving instance Ord SockAddr
+#endif
+
 handleIO_ h a = Exception.catch a (\(_ :: IOException) -> h)
 
 inet_pton :: String -> Maybe SockAddr