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