WIP: create MetaInfo structure from torrentfile

diff --git a/src/Main.hs b/src/Main.hs
index 7ab471258fdb0f70f9d5db6b32da77d5f69ce6c7..6d4b3ce7403ba36d23d5b6f038575021a003abc0 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -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
+++ b/src/Metainfo.hs
@@ -0,0 +1 @@
+module Metainfo where