Reorganisation of light source placements and fittings

2021-11-17 12:04:03 +00:00
parent 602d91d3a8
commit bcdf0e643c
8 changed files with 149 additions and 137 deletions
@@ -130,7 +130,7 @@ destroyBlock bl w = w
    wlids = _blWallIDs bl
    awl = _walls w IM.! IS.findMin wlids
    pos = fst . _wlLine $ _walls w IM.! IS.findMin wlids
-    ps = (replicateM 25 $ randInCirc 20) & evalState $ _randGen w
+    ps = replicateM 25 (randInCirc 20) & evalState $ _randGen w
 -- | Note the explict use of record syntax. Using lens created a space leak.
 resetWorldEvents :: World -> World
 resetWorldEvents w = w {_worldEvents = id}