19 lines
No EOL
522 B
Haskell
19 lines
No EOL
522 B
Haskell
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 |