Clear all warnings

src/Dodge/Creature/Action/UseItem.hs

@@ -1,13 +1,11 @@
 module Dodge.Creature.Action.UseItem
     where
 import Dodge.Data
-
 import Dodge.Inventory
 
 import qualified Data.IntMap as IM
-
 import Control.Lens
-import Data.Maybe (maybe)
+--import Data.Maybe (maybe)
 
 useItem :: Int -> World -> World
 useItem n w = itemEffect n it w

src/Dodge/Creature/ChooseTarget.hs

@@ -5,7 +5,7 @@ import Dodge.Base
 import Dodge.Creature.AlertLevel.Data
 
 import Control.Lens
-import qualified Data.IntMap.Strict as IM
+--import qualified Data.IntMap.Strict as IM
 
 targetYouLOS :: Creature -> World -> Maybe Creature
 {-# INLINE targetYouLOS #-}

src/Dodge/Creature/Rationality.hs

@@ -184,13 +184,13 @@ performAction cr w ac = case ac of
     UseAheadPos f -> performAction cr w (f (_crPos cr +.+ 20 *.* unitVectorAtAngle (_crDir cr)))
     ArbitraryAction f -> performAction cr w (f cr w)
     DoImpulsesAlongside sideImp mainAc -> case performAction cr w mainAc of
-        (imp, Just ac) -> (sideImp ++ imp, Just $ DoImpulsesAlongside sideImp ac)
+        (imp, Just nxtac) -> (sideImp ++ imp, Just $ DoImpulsesAlongside sideImp nxtac)
         (imp, _) -> (sideImp ++ imp, Nothing)
-    DoReplicate t ac -> performAction cr w $ DoReplicatePartial ac t ac
-    DoReplicatePartial _  0 ac' -> performAction cr w ac'
-    DoReplicatePartial ac t ac' -> case performAction cr w ac' of
-        (imps , Just ac'') -> (imps, Just $ DoReplicatePartial ac t ac'')
-        (imps , _)         -> (imps, Just $ DoReplicatePartial ac (t-1) ac)
+    DoReplicate t nxtac -> performAction cr w $ DoReplicatePartial nxtac t nxtac
+    DoReplicatePartial _  0 pac -> performAction cr w pac
+    DoReplicatePartial sac t pac -> case performAction cr w pac of
+        (imps , Just nac) -> (imps, Just $ DoReplicatePartial sac t nac)
+        (imps , _)         -> (imps, Just $ DoReplicatePartial sac (t-1) sac)
     _ -> ([], Nothing)
   where
     cpos = _crPos cr 

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