Allow specifying NodeId as hexadecimal string.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/Address.hs b/src/Network/BitTorrent/Address.hs
index 3159fab0..9f9340d1 100644
--- a/src/Network/BitTorrent/Address.hs
+++ b/src/Network/BitTorrent/Address.hs
@@ -643,7 +643,8 @@ instance Serialize NodeId where
 -- | ASCII encoded.
 instance IsString NodeId where
   fromString str
-    | L.length str == nodeIdSize = NodeId (fromString str)
+    | L.length str == nodeIdSize     = NodeId (fromString str)
+    | L.length str == 2 * nodeIdSize = NodeId (fst $ Base16.decode $ fromString str)
     |           otherwise = error "fromString: invalid NodeId length"
   {-# INLINE fromString #-}