diff --git a/src/Test.hs b/src/Test.hs index 0fbfa28..c3e856d 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -57,7 +57,7 @@ loadMapFork ud future progress = do let loadSteps = 16 fc = FloorConfig (10, 10) - [] + [(5, 5), (5, 45)] (50, 50) _ <- liftIO $ swapMVar progress (1 / loadSteps) (mat, gr) <- buildHallFloorIO fc progress (1 / loadSteps)