shrink playarea

This commit is contained in:
Nek0 - 2018-09-19 23:44:27 +02:00
parent 086302be5e
commit 80860264a3
1 changed files with 1 additions and 1 deletions

View File

@ -86,7 +86,7 @@ loadMapFork ud ad future progress = do
fc = FloorConfig
(V2 10 10)
[(V2 5 5), (V2 5 20)]
(50, 50)
(40, 40)
modifyMVar_ progress (return . (\(p, _) ->
( p + increment
, "Building floor"