diff options
-rw-r--r-- | TODO.org | 3 | ||||
-rw-r--r-- | bench/Main.hs | 1 | ||||
-rw-r--r-- | pp/pp.hs | 4 |
3 files changed, 5 insertions, 3 deletions
@@ -2,6 +2,7 @@ | |||
2 | * DONE tests for generics with record selectors | 2 | * DONE tests for generics with record selectors |
3 | * TODO lens compatible selectors renaming | 3 | * TODO lens compatible selectors renaming |
4 | * TODO benchmarks for generic decode | 4 | * TODO benchmarks for generic decode |
5 | * TODO documentation | 5 | * DONE documentation |
6 | * TODO v0.2.0.0 (reason: dictAssoc is hidded now) | 6 | * TODO v0.2.0.0 (reason: dictAssoc is hidded now) |
7 | * TODO use HashMap | 7 | * TODO use HashMap |
8 | * TODO CPS Result | ||
diff --git a/bench/Main.hs b/bench/Main.hs index 2c1da50..2edf43a 100644 --- a/bench/Main.hs +++ b/bench/Main.hs | |||
@@ -15,6 +15,7 @@ import Data.AttoBencode as B | |||
15 | import Data.AttoBencode.Parser as B | 15 | import Data.AttoBencode.Parser as B |
16 | import "bencoding" Data.BEncode as C | 16 | import "bencoding" Data.BEncode as C |
17 | 17 | ||
18 | |||
18 | instance NFData A.BEncode where | 19 | instance NFData A.BEncode where |
19 | rnf (A.BInt i) = rnf i | 20 | rnf (A.BInt i) = rnf i |
20 | rnf (A.BString s) = rnf s | 21 | rnf (A.BString s) = rnf s |
@@ -10,5 +10,5 @@ main = do | |||
10 | path : _ <- getArgs | 10 | path : _ <- getArgs |
11 | content <- B.readFile path | 11 | content <- B.readFile path |
12 | case decode content of | 12 | case decode content of |
13 | Left e -> hPutStrLn stderr e | 13 | Left e -> hPutStrLn stderr e |
14 | Right be -> printPretty be \ No newline at end of file | 14 | Right be -> print $ ppBEncode be \ No newline at end of file |