From a6427b507a74e3816f113a074b9bcb844b6dfded Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Thu, 5 Feb 2015 12:58:44 +0530
Subject: [PATCH] WIP: Main

---
 src/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index 6d4b3ce..f5ee389 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -14,6 +14,7 @@ main = do
   args <- getArgs
   torrentStr <- BC.readFile (head args)
   case (Benc.decode torrentStr) of
-   Right d -> MInfo.mkMetaInfo d
+   Right d -> let minfo = MInfo.mkMetaInfo d
+              in MInfo.printInfo minfo
    Left e -> printError e
   putStrLn "done"
-- 
2.45.2