Clear all warnings

src/Dodge/Creature/Test.hs

@@ -25,7 +25,7 @@ onBoth :: (a -> b -> c) -> (d -> a) -> (d -> b) -> d -> c
 onBoth f g h x = f (g x) (h x)
 
 crIsReloading :: (World, Creature) -> Bool
-crIsReloading (w,cr) = case cr ^? crInv . ix (_crInvSel cr) . wpReloadState of
+crIsReloading (_,cr) = case cr ^? crInv . ix (_crInvSel cr) . wpReloadState of
     Just t -> t > 0
     _ -> False
 
@@ -69,12 +69,12 @@ crHasTargetLOSR cr = reader $ \w -> case cr ^? crTarget . _Just of
     Nothing -> False
 
 crSafeDistFromTarg :: Float -> (World,Creature) -> Bool
-crSafeDistFromTarg d (w,cr) = case cr ^? crTarget . _Just of
+crSafeDistFromTarg d (_,cr) = case cr ^? crTarget . _Just of
     Just tcr -> dist (_crPos cr) (_crPos tcr) > d
     Nothing -> True
 
 crSafeDistFromTargR :: Float -> Creature -> Reader World Bool
-crSafeDistFromTargR d cr = reader $ \w -> case cr ^? crTarget . _Just of
+crSafeDistFromTargR d cr = return $ case cr ^? crTarget . _Just of
     Just tcr -> dist (_crPos cr) (_crPos tcr) > d
     Nothing -> True
 
@@ -86,16 +86,16 @@ crStratConMatchesR strat cr = return $ eqConstr strat (_crStrategy $ _crActionPl
 
 crAwayFromPost :: (World,Creature) -> Bool
 crAwayFromPost (_,cr) = case find sentinelGoal $ _crGoal $ _crActionPlan cr of
-    Just (SentinelAt p dir) -> dist p (_crPos cr) > 15
+    Just (SentinelAt p _) -> dist p (_crPos cr) > 15
     _ -> False
   where
-    sentinelGoal (SentinelAt p dir) = True
+    sentinelGoal (SentinelAt _ _) = True
     sentinelGoal _ = False
 
 crAwayFromPostR :: Creature -> Reader World Bool
 crAwayFromPostR cr = return $ case find sentinelGoal $ _crGoal $ _crActionPlan cr of
-    Just (SentinelAt p dir) -> dist p (_crPos cr) > 15
+    Just (SentinelAt p _) -> dist p (_crPos cr) > 15
     _ -> False
   where
-    sentinelGoal (SentinelAt p dir) = True
+    sentinelGoal (SentinelAt _ _) = True
     sentinelGoal _ = False