Cleanup warnings

src/Dodge/Creature/PistolCrit.hs

@@ -6,12 +6,12 @@ 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
@@ -22,24 +22,24 @@ import Data.Maybe
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
 import Control.Monad.State
-import System.Random
+--import System.Random
 
 pistolCrit :: Creature
 pistolCrit = defaultCreature
     { _crPict = basicCrPict red
-    , _crUpdate = stateUpdate $ impulsiveAI $ composeInternalAIs
-        [ performActions
-        , watchUpdateStrat
-            [ (crHasTargetLOS, \w cr -> StrategyActions (ShootAt 0) [DoActionIf (not . crIsAiming) DrawWeapon,chooseMovement cr w])
-            , (crAwayFromPost, goToPostStrat)
-            ]
-        , basicPerceptionUpdate [0]
-        , doStrategyActions
-        , reloadOverride
-        , targetYouWhenCognizant
-        , overrideInternal (onBoth (&&) crHasTarget (crStratConMatches (GetTo (0,0))))
-            $ \ _ -> crActionPlan . crStrategy .~ WatchAndWait
-        ]
+    , _crUpdate = stateUpdate $ impulsiveAIR $
+         performActionsR
+        >=> watchUpdateStratR
+              [ (crHasTargetLOS, \w cr -> StrategyActions (ShootAt 0) 
+                    [DoActionIf (not . crIsAiming) DrawWeapon,chooseMovement cr w])
+              , (crAwayFromPost, goToPostStrat)
+              ]
+        >=> basicPerceptionUpdateR [0]
+        >=> doStrategyActionsR
+        >=> reloadOverrideR
+        >=> targetYouWhenCognizantR
+        >=> overrideInternalR (onBoth (&&) crHasTarget (crStratConMatches (GetTo (0,0))))
+            (  \ _ -> crActionPlan . crStrategy .~ WatchAndWait )
     , _crActionPlan = ActionPlan
         { _crImpulse    = []
         , _crAction     = []