nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

*flushing sounds*

Browse source
This commit is contained in:
nek0 2018-06-24 00:43:27 +02:00
parent 6189b3bcb8
commit 368d679356
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Test.hs
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)