Setup

lib/RPGEngine/Parse.hs

@@ -1,8 +1,19 @@
 module RPGEngine.Parse where
 
-import RPGEngine.Data.Types
+import RPGEngine.Data
+import RPGEngine.Parse.StructureElement
+import RPGEngine.Parse.Game
 
--- TODO parseFromFile gebruiken
+import Text.Parsec.String
+import System.IO.Unsafe
 
-parseToGame :: Game
-parseToGame = undefined
+----------------------------- Constants ------------------------------
+
+type FileName = String
+
+----------------------------------------------------------------------
+
+parseToGame :: FileName -> Game
+parseToGame filename = structureToGame structure
+    where (Right structure) = unsafePerformIO io
+          io                = parseFromFile structureElement filename