summaryrefslogtreecommitdiffstats
path: root/Level.hs
blob: c18104eb198d6fe180487f617f7e5c4d609b915e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
            }