From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Thu, 5 Feb 2015 07:28:44 +0000 (+0530)
Subject: WIP: Main
X-Git-Url: https://git.rkrishnan.org/tahoe_css?a=commitdiff_plain;h=a6427b507a74e3816f113a074b9bcb844b6dfded;p=functorrent.git

WIP: Main
---

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"