Added texture loading

1 files changed, 4 insertions, 4 deletions

diff --git a/Level.hs b/Level.hs
index c18104e..c99a4b5 100644
--- a/Level.hs
+++ b/Level.hs
@@ -5,14 +5,14 @@ module Level ( Level(..)
 import Data.List
 
 data Level = Level
-    { floorTiles :: ![[Int]]
-    , objectTiles :: ![[Int]]
+    { levelWidth  :: !Int
+    , levelHeight :: !Int
     } deriving (Show)
 
 
 
 testLevel :: Level
 testLevel = Level
-            { floorTiles = replicate 10 $ replicate 10 0
-            , objectTiles = replicate 10 $ replicate 10 0
+            { levelWidth = 10
+            , levelHeight = 10
             }
\ No newline at end of file