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
@@ -10,7 +10,7 @@ import Data.Foldable

 zoneOfWall :: Wall -> [(Int,Int)]
 zoneOfWall wl 
-    | uncurry dist wlline <= 2*zoneSize =  [zoneOfPoint $ uncurry pHalf wlline ]
+    | uncurry dist wlline <= 2*zoneSize = [zoneOfPoint $ uncurry pHalf wlline ]
    | otherwise = map zoneOfPoint $ uncurry (divideLine zoneSize) wlline
  where
    wlline = _wlLine wl