Cleanup

2022-07-11 10:26:33 +01:00
parent 75d597f774
commit 3447b9b0bb
15 changed files with 28 additions and 28 deletions
@@ -33,8 +33,8 @@ splinterBlock bl w = foldr unshadowBlock w (_blShadows bl) -- foldr shiftTowardC
 unshadowBlock :: Int -> World -> World
 unshadowBlock wlid w = case w ^? walls . ix wlid of
    Just wl -> w
-        & walls . ix wlid . wlDraw .~ True
-        & wlZoning . znObjects . ix x . ix y . ix wlid . wlDraw .~ True
+        & walls . ix wlid . wlUnshadowed .~ True
+        & wlZoning . znObjects . ix x . ix y . ix wlid . wlUnshadowed .~ True
      where
        V2 x y = wlZoneOfPoint $ uncurry midPoint (_wlLine wl)
    Nothing -> w