2 files changed, 8 insertions, 1 deletions

diff --git a/Presence/Server.hs b/Presence/Server.hs
index 003fcdbb..312634cf 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -66,6 +66,12 @@ 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
diff --git a/xmppServer.hs b/xmppServer.hs
index 987e7dbc..7a61b00d 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -357,12 +357,13 @@ main = runResourceT $ do
                           , duplex = False }
     client_params <- return $ connectionDefaults clientKey
     let testaddr0 = "fd97:ca88:fa7c:b94b:c8b8:fad4:1021:a54d"
+        -- testaddr0 = "fdef:9e0b:b502:52c3:c074:28d3:fcd7:bfb7"
     testaddr<- fmap (addrAddress . head) $
         getAddrInfo (Just $ defaultHints { addrFlags = [ AI_CANONNAME ]})
                 (Just testaddr0)
                 (Just "5269")
     putStrLn $ "Connecting to "++show testaddr
-    control sv (ConnectWithEndlessRetry testaddr peer_params 2000)
+    control sv (ConnectWithEndlessRetry testaddr peer_params 10000)
     forkIO $ monitor sv peer_params
     control sv (Listen peerport peer_params)
     -- control sv (Listen clientport client_params)