From 00321ac50df3d8493c02f2420fb85d17ace2a38e Mon Sep 17 00:00:00 2001 From: Ramakrishnan Muthukrishnan Date: Wed, 4 Feb 2015 04:56:27 +0530 Subject: [PATCH] Main program --- src/Main.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index 4af7af8..7ab4712 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -1,3 +1,12 @@ module Main where -main = putStrLn "hello" +import System.Environment (getArgs) +import qualified Data.ByteString.Char8 as BC +import qualified Bencode as Benc + +main :: IO () +main = do + args <- getArgs + torrentStr <- BC.readFile (head args) + let metadata = Benc.decode torrentStr + putStrLn "done" -- 2.45.2