ML donkey encoding style

3 files changed, 5 insertions, 0 deletions

diff --git a/src/Data/Torrent/Client.hs b/src/Data/Torrent/Client.hs
index 10671a44..96ddd347 100644
--- a/src/Data/Torrent/Client.hs
+++ b/src/Data/Torrent/Client.hs
@@ -64,6 +64,7 @@ data ClientImpl =
 -- 'U' - UPnP NAT Bit Torrent
  | IBitLord
  | IOpera
+ | IMLdonkey
 
  | IAres
  | IArctic
diff --git a/src/Network/BitTorrent/Core/PeerId.hs b/src/Network/BitTorrent/Core/PeerId.hs
index 3e6fac24..b8780a96 100644
--- a/src/Network/BitTorrent/Core/PeerId.hs
+++ b/src/Network/BitTorrent/Core/PeerId.hs
@@ -247,6 +247,7 @@ parseImpl = f . BC.unpack
   f "MO" = IMonoTorrent
   f "MP" = IMooPolice
   f "MR" = IMiro
+  f "ML" = IMLdonkey
   f "MT" = IMoonlightTorrent
   f "NX" = INetTransport
   f "PD" = IPando
diff --git a/tests/Data/Torrent/ClientSpec.hs b/tests/Data/Torrent/ClientSpec.hs
index f1fa2c03..0ff74f6f 100644
--- a/tests/Data/Torrent/ClientSpec.hs
+++ b/tests/Data/Torrent/ClientSpec.hs
@@ -25,3 +25,6 @@ spec = do
 
     it "decode opera style peer id" $ do
       clientInfo "OP0123xxxxxxxxxxxxxx" `shouldBe` "Opera-123"
+
+    it "decode ML donkey style peer id" $ do
+      clientInfo "-ML2.7.2-xxxxxxxxxxx" `shouldBe` "MLdonkey-0"
\ No newline at end of file