htanks/Level.hs

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

import Data.List

data Level = Level
    { levelWidth  :: !Int
    , levelHeight :: !Int
    } deriving (Show)



testLevel :: Level
testLevel = Level
            { levelWidth = 10
            , levelHeight = 10
            }