More hlinting

2025-12-21 19:27:49 +00:00
parent 2fbaa47c0b
commit 51c52ace7d
18 changed files with 41 additions and 46 deletions
@@ -153,7 +153,7 @@ damageDirt dm _ w =

 damageGlass :: Damage -> ECW -> World -> (Int,World)
 damageGlass dm ecw w = case dm of
-        Lasering {} -> f 0 $ id
+        Lasering {} -> f 0  id
        Piercing _ p t -> 
            f dmam $ makeSpark NormalSpark (outTo p t) (rdir p t)
 --                . makeDustAt Stone 200 (addZ 20 (outTo p t))
@@ -219,7 +219,7 @@ damageGlass dm ecw w = case dm of

 damageCrystal :: Damage -> ECW -> World -> (Int,World)
 damageCrystal dm ecw w = case dm of
-        Lasering {} -> f $ id
+        Lasering {} -> f  id
        Piercing _ p t -> 
            f $ makeSpark NormalSpark (outTo p t) (rdir p t)
                 . randsound p [marimbaC5S,marimbaE5S,marimbaG5S,marimbaB6S]