3 files changed, 5 insertions, 3 deletions

diff --git a/TODO.org b/TODO.org
index 72dfe29..0b3fe60 100644
--- a/TODO.org
+++ b/TODO.org
@@ -2,6 +2,7 @@
 * DONE tests for generics with record selectors
 * TODO lens compatible selectors renaming
 * TODO benchmarks for generic decode
-* TODO documentation
+* DONE documentation
 * TODO v0.2.0.0 (reason: dictAssoc is hidded now)
 * TODO use HashMap
+* 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
 import             Data.AttoBencode.Parser as B
 import "bencoding" Data.BEncode     as C
 
+
 instance NFData A.BEncode where
     rnf (A.BInt    i) = rnf i
     rnf (A.BString s) = rnf s
diff --git a/pp/pp.hs b/pp/pp.hs
index 0924b6b..7163754 100644
--- a/pp/pp.hs
+++ b/pp/pp.hs
@@ -10,5 +10,5 @@ main = do
   path : _ <- getArgs
   content  <- B.readFile path
   case decode content of
-    Left e -> hPutStrLn stderr e
-    Right be -> printPretty be
\ No newline at end of file
+    Left  e  -> hPutStrLn stderr e
+    Right be -> print $ ppBEncode be
\ No newline at end of file