*flushing sounds*

This commit is contained in:
nek0 2018-06-24 00:43:27 +02:00
parent 6189b3bcb8
commit 368d679356

View file

@ -57,7 +57,7 @@ loadMapFork ud future progress = do
let loadSteps = 16 let loadSteps = 16
fc = FloorConfig fc = FloorConfig
(10, 10) (10, 10)
[] [(5, 5), (5, 45)]
(50, 50) (50, 50)
_ <- liftIO $ swapMVar progress (1 / loadSteps) _ <- liftIO $ swapMVar progress (1 / loadSteps)
(mat, gr) <- buildHallFloorIO fc progress (1 / loadSteps) (mat, gr) <- buildHallFloorIO fc progress (1 / loadSteps)