Delete cruft, add Reader monad to some internal ai

src/Dodge/Creature/ActionRat.hs

@@ -20,7 +20,6 @@ import Dodge.Data
 import Dodge.Base
 import Dodge.Base.Collide
 import Dodge.Creature.ChooseTarget
-import Dodge.Creature.Rationality.Data
 import Dodge.Creature.Stance.Data
 import Dodge.Creature.Test
 import Geometry
@@ -216,7 +215,7 @@ applyNewStrategies
 applyNewStrategies w cr = case cr ^? crActionPlan . crStrategy of
     Just (StrategyActions strat acs) -> cr & crActionPlan . crAction .~ acs
         & crActionPlan . crStrategy .~ strat
-    otherwise -> cr
+    _ -> cr
 
 doStrategyActions
     :: World
@@ -225,7 +224,7 @@ doStrategyActions
 doStrategyActions w cr = case cr ^? crActionPlan . crStrategy of
     Just (StrategyActions strat acs) -> cr & crActionPlan . crAction .~ acs
         & crActionPlan . crStrategy .~ strat
-    otherwise -> cr
+    _ -> cr
 
 updateShoot
     :: World
@@ -270,7 +269,7 @@ watchUpdateStrat
     -> Creature
 watchUpdateStrat fs w cr = case cr ^? crActionPlan . crStrategy of
     Just WatchAndWait -> cr 
-        & crActionPlan . crStrategy .~ listGuard (fs, (\_ _ -> WatchAndWait)) (w, cr) w cr
+        & crActionPlan . crStrategy .~ listGuard (fs, \_ _ -> WatchAndWait) (w, cr) w cr
     _ -> cr
 
 listGuard :: ([(a -> Bool, b)] , b) -> a -> b