test pass

[functorrent.git] / src / FuncTorrent / Bencode.hs

diff --git a/src/FuncTorrent/Bencode.hs b/src/FuncTorrent/Bencode.hs
index 28f0460a828af94d7d47ca978ed3bf4e290f6980..d4eb58c5ac12d0e4f811eb050f95266733b9f262 100644 (file)
--- a/src/FuncTorrent/Bencode.hs
+++ b/src/FuncTorrent/Bencode.hs
@@ -152,7 +152,7 @@ bencDict = between (char 'd') (char 'e') $ fromList <$> many kvpair
                     return (k, v)
         bdictKey = do
           ds <- many1 digit <* char ':'
-          s <- count (read ds) alphaNum
+          s <- count (read ds) anyChar
           return s