Cleanup

2022-02-13 17:29:32 +00:00
parent eba1713895
commit 40f1d987cb
21 changed files with 109 additions and 171 deletions
@@ -21,8 +21,7 @@ splinterBlock bl w = foldr unshadowBlock w (_blShadows bl) -- foldr shiftTowardC
    & blocks . ix (_blID bl) . blHPs %~ tail
    & matSplintSound (_blMaterial bl) cen
  where
-    wls = IM.restrictKeys (_walls w) (_blWallIDs bl)
-    cen = centroid $ fmap (fst . _wlLine) wls
+    cen = centroid $ fst . _wlLine <$> IM.restrictKeys (_walls w) (_blWallIDs bl)

 unshadowBlock :: Int -> World -> World
 unshadowBlock wlid w = case w ^? walls . ix wlid of