pioneers/src/Map/StaticMaps.hs
2014-02-09 20:18:03 +01:00

10 lines
184 B
Haskell

module Map.StaticMaps
where
import Map.Types
import Data.Array
emptyMap :: PlayMap
emptyMap = array ((0,0), (100,100)) [((a,b), (Minimal (a,b) 0.5)) | a <- [0..100], b <- [0..100]]