Moved DNS related calls to single module (preparation for DNSCache)

1 files changed, 1 insertions, 6 deletions

diff --git a/Presence/Server.hs b/Presence/Server.hs
index abf9f5e3..fd5f1e43 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -63,16 +63,11 @@ import Network.BSD
 import Debug.Trace
 import Data.Time.Clock (UTCTime,getCurrentTime,diffUTCTime)
 import Data.Time.Format (formatTime)
+import SockAddr ()
 -- import System.Locale (defaultTimeLocale)
 
 todo = error "unimplemented"
 
-#if MIN_VERSION_network(2,4,0)
-#else
-deriving instance Ord SockAddr
-#endif
-
-
 type Microseconds = Int
 type Miliseconds = Int
 type TimeOut = Miliseconds