diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-05-19 17:08:47 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-05-19 17:08:47 +0400 |
| commit | c2e98a5a1c920fb1af023228a873249e9f2f2ef5 (patch) | |
| tree | e5848c232c3a5c7ef5ca9f1e6842456f93c16401 /src/Data/BEncode.hs | |
| parent | 6c0d145b82a6372ba98c60f3bf398f8da8a8c89b (diff) | |
+ Add benchmarks for long int lists.
Diffstat (limited to 'src/Data/BEncode.hs')
| -rw-r--r-- | src/Data/BEncode.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs index d4997fb..dd94f8c 100644 --- a/src/Data/BEncode.hs +++ b/src/Data/BEncode.hs | |||
| @@ -403,7 +403,7 @@ parser = valueP | |||
| 403 | P.anyChar | 403 | P.anyChar |
| 404 | (BDict . M.fromDistinctAscList <$> many ((,) <$> stringP <*> valueP)) | 404 | (BDict . M.fromDistinctAscList <$> many ((,) <$> stringP <*> valueP)) |
| 405 | <* P.anyChar | 405 | <* P.anyChar |
| 406 | _ -> fail "" | 406 | _ -> fail "Unable to parse bencode: unknown tag" |
| 407 | 407 | ||
| 408 | stringP :: Parser ByteString | 408 | stringP :: Parser ByteString |
| 409 | stringP = do | 409 | stringP = do |