1 files changed, 18 insertions, 0 deletions
diff --git a/Level.hs b/Level.hs
new file mode 100644
index 0000000..c18104e
--- /dev/null
+++ b/Level.hs
@@ -0,0 +1,18 @@
+module Level ( Level(..)
+             , testLevel
+             ) where
+
+import Data.List
+
+data Level = Level
+    { floorTiles :: ![[Int]]
+    , objectTiles :: ![[Int]]
+    } deriving (Show)
+
+
+
+testLevel :: Level
+testLevel = Level
+            { floorTiles = replicate 10 $ replicate 10 0
+            , objectTiles = replicate 10 $ replicate 10 0
+            }
+\ No newline at end of file