1 files changed, 3 insertions, 3 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 527af7e7..4b38a7ea 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -99,7 +99,7 @@ import Presence
 import XMPPServer
 import Connection
 import ToxToXMPP
-import qualified Server (ConnectionEvent(..))
+import qualified Connection.Tcp (ConnectionEvent(..))
 
 
 showReport :: [(String,String)] -> String
@@ -987,7 +987,7 @@ noArgPing :: (x -> IO (Maybe r)) -> [String] -> x -> IO (Maybe r)
 noArgPing f [] x = f x
 noArgPing _ _  _ = return Nothing
 
-announceToxConnection :: TChan ((ConnectionKey,SockAddr), Server.ConnectionEvent XML.Event)
+announceToxConnection :: TChan ((ConnectionKey,SockAddr), Connection.Tcp.ConnectionEvent XML.Event)
                       -> SockAddr
                       -> SockAddr
                       -> STM Bool
@@ -997,7 +997,7 @@ announceToxConnection :: TChan ((ConnectionKey,SockAddr), Server.ConnectionEvent
 announceToxConnection echan laddr saddr pingflag tsrc tsnk
     = atomically $ writeTChan echan
         ( (PeerKey saddr, laddr )
-        , Server.Connection pingflag xsrc xsnk )
+        , Connection.Tcp.Connection pingflag xsrc xsnk )
  where
     xsrc = tsrc =$= toxToXmpp
     xsnk = flushPassThrough xmppToTox =$= tsnk