1 files changed, 9 insertions, 8 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index c587578d..e9220fcb 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -87,6 +87,7 @@ import GHC.TypeLits
 
 import Crypto.Tox
 import Data.Word64Map                        (fitsInInt)
+import qualified Data.Word64Map              (empty)
 import Network.Tox.Crypto.Transport          (NetCrypto)
 import qualified Network.Tox.DHT.Handlers    as DHT
 import qualified Network.Tox.DHT.Transport   as DHT
@@ -189,8 +190,8 @@ newClient drg net classify selfAddr handlers modifytbl modifynet = do
             intmap_var <- atomically $ newTVar (drg, mempty)
             return $ Right (intmapT,intmap_var)
          else do
-            let word64mapT = transactionMethods (contramap w64key w64MapMethods) gen
-            map_var <- atomically $ newTVar (drg, mempty)
+            let word64mapT = transactionMethods (contramap w64Key w64MapMethods) gen
+            map_var <- atomically $ newTVar (drg, Data.Word64Map.empty)
             return $ Left (word64mapT,map_var)
     let dispatch tbl var handlers = DispatchMethods
                 { classifyInbound = classify
@@ -236,12 +237,12 @@ getContactInfo Tox{toxCryptoKeys,toxRouting} = join $ atomically $ do
         ns = filter (DHT.isGlobal . nodeIP) [n4,n6]
               ++ concat (zipWith (\a b -> [a,b]) n4s n6s)
     return $ do
-    timestamp <- round . (* 1000000) <$> getPOSIXTime
-    return DHT.DHTPublicKey
-        { dhtpkNonce = timestamp
-        , dhtpk      = id2key self
-        , dhtpkNodes = DHT.SendNodes $ take 4 ns
-        }
+        timestamp <- round . (* 1000000) <$> getPOSIXTime
+        return DHT.DHTPublicKey
+            { dhtpkNonce = timestamp
+            , dhtpk      = id2key self
+            , dhtpkNodes = DHT.SendNodes $ take 4 ns
+            }
 
 isLocalHost :: SockAddr -> Bool
 isLocalHost (SockAddrInet _ host32) = (fromBE32 host32 == 0x7f000001)