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