Reorganized code to add Debris class

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
-            }
+            { levelWidth = 14
+            , levelHeight = 8
+            , debris = []
+            }