From 00321ac50df3d8493c02f2420fb85d17ace2a38e Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
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