Get rid of warnings

2025-06-07 19:14:56 +01:00
parent 81a7dcd962
commit faa3c4cde4
12 changed files with 85 additions and 96 deletions
@@ -19,7 +19,7 @@ defDamageMaterial dm _ w = (_dmAmount dm, w)

 damageStone :: Damage -> Float -> World -> (Int, World)
 damageStone dm dir = case dm of
-    Lasering x p t -> a 0 $ makeSpark FireSpark (outTo p t) (argV $ reflectIn t v)
+    Lasering _ p t -> a 0 $ makeSpark FireSpark (outTo p t) (argV $ reflectIn t v)
    Piercing x p t -> a x $ makeSpark NormalSpark (outTo p t) (argV $ reflectIn t v)
    Blunt x p t -> a x $ makeSpark NormalSpark (outTo p t) (argV $ reflectIn t v)
    Shattering {} -> a 0 id
@@ -30,6 +30,7 @@ damageStone dm dir = case dm of
    Electrical {} -> a 0 id
    Poison {} -> a 0 id
    Enterrement {} -> a 0 id
+    Flashing {} -> a 0 id
  where
    v = unitVectorAtAngle dir
    a x f w = (x, f w)