Eliminate list conversion in parsing

1 files changed, 5 insertions, 5 deletions

diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs
index 8858730..086d34f 100644
--- a/src/Data/BEncode.hs
+++ b/src/Data/BEncode.hs
@@ -788,13 +788,13 @@ parser = valueP
               di | di <= '9' -> BString <$> stringP
               'i' -> P.anyChar *> ((BInteger <$> integerP) <* P.anyChar)
               'l' -> P.anyChar *> ((BList    <$> listBody) <* P.anyChar)
-              'd' -> do
-                     P.anyChar
-                     (BDict . BD.fromAscList <$>
-                          many ((,) <$> stringP <*> valueP))
-                       <* P.anyChar
+              'd' -> P.anyChar *>  (BDict    <$> dictBodyP)<* P.anyChar
               t   -> fail ("bencode unknown tag: " ++ [t])
 
+    dictBodyP :: Parser BDict
+    dictBodyP = Cons <$> stringP <*> valueP <*> dictBodyP
+            <|> pure Nil
+
     listBody = do
       c <- P.peekChar
       case c of