Get rid of warnings

src/Dodge/Flame.hs

@@ -45,14 +45,14 @@ expireAndDamageFL ::
     (World, Maybe Flame)
 expireAndDamageFL bt things w = case List.safeHead things of
     Nothing -> (w, Just $ bt & flTimer -~ 1)
-    Just x -> (doDamagesFL x bt w, Nothing)
+    Just (_,x) -> (doDamagesFL x w, Nothing)
 
 doDamagesFL ::
-    (Point2, Either Creature Wall) ->
-    Flame ->
+    Either Creature Wall ->
+--    Flame ->
     World ->
     World
-doDamagesFL (p, thhit) bt = case thhit of
+doDamagesFL thhit = case thhit of
     Left cr ->
         cWorld . lWorld . creatures . ix (_crID cr) . crState . csDamage
             .:~ Flaming 1