diff --git a/src/MainGame/WorldMap.hs b/src/MainGame/WorldMap.hs index ea1a7db..1fea1e1 100644 --- a/src/MainGame/WorldMap.hs +++ b/src/MainGame/WorldMap.hs @@ -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"