WIP: Main

diff --git a/src/Main.hs b/src/Main.hs
index 6d4b3ce7403ba36d23d5b6f038575021a003abc0..f5ee3890ad96882023d4a892f2d1b8de0ccb515c 100644 (file)
--- 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"