module Main
  where

import PetrusFiles
import PictureGenerator
import System.Environment
import qualified Data.ByteString.Lazy as BS

main :: IO ()

main = do
  [gameFile, dataFile] <- getArgs
  dataFileContents <- readFile dataFile
  gameFileContents <- BS.readFile gameFile
  either putStrLn (\conf -> putStrLn $ drawBuilding conf (parseNodeDataFile dataFileContents)) (parseGameFile gameFileContents) 



