1 files changed, 6 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/Address.hs b/src/Network/BitTorrent/Address.hs
index b4ce96b0..381ff50b 100644
--- a/src/Network/BitTorrent/Address.hs
+++ b/src/Network/BitTorrent/Address.hs
@@ -58,7 +58,8 @@ module Network.BitTorrent.Address
 
          -- * Node
          -- ** Id
-       , NodeId(..)
+       , NodeId
+       , asNodeId
        , nodeIdSize
        , testIdBit
        , NodeDistance
@@ -646,6 +647,9 @@ newtype NodeId = NodeId ByteString
 nodeIdSize :: Int
 nodeIdSize = 20
 
+asNodeId :: ByteString -> NodeId
+asNodeId bs = NodeId $ BS.take nodeIdSize bs
+
 -- | Meaningless node id, for testing purposes only.
 instance Default NodeId where
   def = NodeId (BS.replicate nodeIdSize 0)
@@ -801,6 +805,7 @@ data NodeInfo a = NodeInfo
   , nodeAddr :: !(NodeAddr a)
   } deriving (Show, Eq, Functor, Foldable, Traversable)
 
+
 instance Eq a => Ord (NodeInfo a) where
   compare = comparing nodeId