WIP: create MetaInfo structure from torrentfile
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Wed, 4 Feb 2015 15:31:20 +0000 (21:01 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Wed, 4 Feb 2015 15:31:20 +0000 (21:01 +0530)
src/Main.hs
src/Metainfo.hs [new file with mode: 0644]

index 7ab471258fdb0f70f9d5db6b32da77d5f69ce6c7..6d4b3ce7403ba36d23d5b6f038575021a003abc0 100644 (file)
@@ -3,10 +3,17 @@ module Main where
 import System.Environment (getArgs)
 import qualified Data.ByteString.Char8 as BC
 import qualified Bencode as Benc
+import qualified Metainfo as MInfo
+import Text.ParserCombinators.Parsec
+
+printError :: ParseError -> IO ()
+printError e = putStrLn "parse error"
 
 main :: IO ()
 main = do
   args <- getArgs
   torrentStr <- BC.readFile (head args)
-  let metadata = Benc.decode torrentStr
+  case (Benc.decode torrentStr) of
+   Right d -> MInfo.mkMetaInfo d
+   Left e -> printError e
   putStrLn "done"
diff --git a/src/Metainfo.hs b/src/Metainfo.hs
new file mode 100644 (file)
index 0000000..b8240c5
--- /dev/null
@@ -0,0 +1 @@
+module Metainfo where