src/Level.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

module Level ( Level(..)
             , testLevel
             ) where

import Data.List

import Debris

data Level = Level
    { levelWidth  :: !Int
    , levelHeight :: !Int
    , debris      :: ![SomeDebris]
    } deriving (Show)


testLevel :: Level
testLevel = Level
            { levelWidth = 14
            , levelHeight = 8
            , debris = []
            }