Reorganized code to add Debris class

1 files changed, 7 insertions, 3 deletions

diff --git a/src/Level.hs b/src/Level.hs
index c99a4b5..152e15d 100644
--- a/src/Level.hs
+++ b/src/Level.hs
@@ -4,15 +4,19 @@ module Level ( Level(..)
 
 import Data.List
 
+import Debris
+
 data Level = Level
     { levelWidth  :: !Int
     , levelHeight :: !Int
+    , debris      :: ![SomeDebris]
     } deriving (Show)
 
 
 
 testLevel :: Level
 testLevel = Level
-            { levelWidth = 10
-            , levelHeight = 10
-            }
\ No newline at end of file
+            { levelWidth = 14
+            , levelHeight = 8
+            , debris = []
+            }