Cleanup warnings

src/Dodge/Creature/LtAutoCrit.hs

@@ -6,24 +6,23 @@ import Dodge.Default
 import Dodge.Creature.Picture
 import Dodge.Creature.Test
 import Dodge.Creature.ActionRat
-import Dodge.Creature.ChooseTarget
+--import Dodge.Creature.ChooseTarget
 import Dodge.Creature.SetTarget
 import Dodge.Creature.Rationality
 import Dodge.Creature.AlertLevel
 import Dodge.Creature.State
-import Dodge.Creature.State.Data
+--import Dodge.Creature.State.Data
 import Dodge.Item.Weapon
 import Dodge.Item.Consumable
 import Geometry
 import Picture
-import Dodge.RandomHelp
+--import Dodge.RandomHelp
 
-import Data.Maybe
+--import Data.Maybe
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
-import Control.Monad.State
-import System.Random
-
+--import Control.Monad.State
+--import System.Random
 
 ltAutoCrit :: Creature
 ltAutoCrit = defaultCreature
@@ -31,7 +30,7 @@ ltAutoCrit = defaultCreature
     , _crUpdate = stateUpdate $ impulsiveAI $ composeInternalAIs
         [ performActions
         , watchUpdateStrat
-            [ (crHasTargetLOS, \w cr -> StrategyActions (ShootAt 0) 
+            [ (crHasTargetLOS, \_ _ -> StrategyActions (ShootAt 0) 
                 [DoActionIf (not . crIsAiming) DrawWeapon
                 ,DoActionThen 
                     (DoActionWhile crHasTargetLOS $ ArbitraryAction chooseMovement)