Cleanup, add spark to bullet turret hit

2022-02-13 17:51:15 +00:00
parent 40f1d987cb
commit 4f0f8cb4c2
7 changed files with 25 additions and 29 deletions
@@ -5,7 +5,7 @@ import Geometry
 import Control.Lens

 wlDustAt :: Wall -> Point2 -> World -> World
-wlDustAt wl p = smokeCloudAt dustcol 20 200 1 (addZ 20 p)
+wlDustAt wl = smokeCloudAt dustcol 20 200 1 . addZ 20
  where
    dustcol = _wlColor wl & _4 .~ 1