diff options
| author | Joshua Rahm <jrahm@Scipio.(none)> | 2014-04-19 03:59:39 -0600 |
|---|---|---|
| committer | Joshua Rahm <jrahm@Scipio.(none)> | 2014-04-19 03:59:39 -0600 |
| commit | a2224be33baae7ae07473e74fe94414cdb8f41d2 (patch) | |
| tree | 2842a2e20c99acb4f24c4ad3bc287ade5ff09027 /Final.hs | |
| parent | e380f8f31246afc2a14eccc51d40aa78dbd12cb1 (diff) | |
| download | terralloc-a2224be33baae7ae07473e74fe94414cdb8f41d2.tar.gz terralloc-a2224be33baae7ae07473e74fe94414cdb8f41d2.tar.bz2 terralloc-a2224be33baae7ae07473e74fe94414cdb8f41d2.zip | |
fixed cpu hemorraging when there are no trees. Added svalbard map.
Diffstat (limited to 'Final.hs')
| -rw-r--r-- | Final.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -288,6 +288,7 @@ main = do let !forestLocations = runMonadPlusBuilder $ createLocations arr stgen 7 Forest let !jungleLocations = runMonadPlusBuilder $ createLocations arr stgen2 2 Jungle + putStrLn $ "Jungle locations: " ++! jungleLocations water <- getWaterQuads arr coloredArr -- putStrLn $ "ForestLocations :" ++! forestLocations makeResources surface (createBuilder arr) forestLocations jungleLocations water |