1 files changed, 2 insertions, 1 deletions

diff --git a/DHTTransport.hs b/DHTTransport.hs
index 3d008174..013fa322 100644
--- a/DHTTransport.hs
+++ b/DHTTransport.hs
@@ -21,6 +21,7 @@ module DHTTransport
     , mapMessage
     , encrypt
     , decrypt
+    , dhtMessageType
     ) where
 
 import ToxAddress
@@ -122,7 +123,7 @@ direct bs saddr f = fanGet bs getDHT f (asymNodeInfo saddr)
 
 -- Throws an error if called with a non-internet socket.
 asymNodeInfo :: SockAddr -> Assym a -> NodeInfo
-asymNodeInfo saddr asym = either (error . mappend "asymNodeInfo: ") id $ nodeInfo (NodeId $ senderKey asym) saddr
+asymNodeInfo saddr asym = either (error . mappend "asymNodeInfo: ") id $ nodeInfo (key2id $ senderKey asym) saddr
 
 
 fanGet :: ByteString -> Get x -> (x -> a) -> (x -> b) -> Either String (a,b)