1 files changed, 2 insertions, 2 deletions
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
+    Left  e  -> hPutStrLn stderr e
-    Right be -> printPretty be
-\ No newline at end of file
+    Right be -> print $ ppBEncode be
+\ No newline at end of file

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
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