From 90b8d87e02bfb0d1d3d10c3b824df8fd8ce37a9f Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <matthias@gamezock.de>
Date: Mon, 15 Mar 2010 14:46:14 +0100
Subject: Reorganized code to add Debris class

---
 src/Level.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'src/Level.hs')

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 = []
+            }
-- 
cgit v1.2.3