module RPGEngine.Parse where

import RPGEngine.Data
import RPGEngine.Parse.StructElement
import RPGEngine.Parse.Game

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

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

type FileName = String

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

parseToGame :: FileName -> Game
parseToGame filename = structToGame struct
    where (Right struct) = unsafePerformIO io
          io             = parseFromFile structElement filename