From: Ramakrishnan Muthukrishnan Date: Thu, 5 Feb 2015 07:28:44 +0000 (+0530) Subject: WIP: Main X-Git-Url: https://git.rkrishnan.org/simplejson/%22news.html/install-details.html?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"