pioneers/src/Map/StaticMaps.hs

10 lines
184 B
Haskell
Raw Normal View History

2014-02-09 20:18:03 +01:00
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]]