WIP: Main
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Thu, 5 Feb 2015 07:28:44 +0000 (12:58 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Thu, 5 Feb 2015 07:28:44 +0000 (12:58 +0530)
src/Main.hs

index 6d4b3ce7403ba36d23d5b6f038575021a003abc0..f5ee3890ad96882023d4a892f2d1b8de0ccb515c 100644 (file)
@@ -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"