module RPGEngine.Parse where

import RPGEngine.Data
import RPGEngine.Parse.StructureElement
import RPGEngine.Parse.Game

import Text.Parsec.String
import System.IO.Unsafe

----------------------------- Constants ------------------------------

type FileName = String

----------------------------------------------------------------------

parseToGame :: FileName -> Game
parseToGame filename = structureToGame structure
    where (Right structure) = unsafePerformIO io
          io                = parseFromFile structureElement filename