Delete some reified action/impulse stuff

src/Dodge/CreatureEffect.hs

@@ -10,14 +10,6 @@ import Dodge.Path
 import Geometry
 import Control.Lens
 
-doWdCrCr :: WdCrCr -> World -> Creature -> Creature
-doWdCrCr ce = case ce of
-    NoCreatureEffect -> const id
-
-doCrWdImp :: CrWdImp -> Creature -> World -> Impulse
-doCrWdImp cwi = case cwi of
-    NoCrWdImp -> const $ const ImpulseNothing
-
 doCrWdWd :: CrWdWd -> Creature -> World -> World
 doCrWdWd cww = case cww of
     CrWdWdId -> const id
@@ -31,10 +23,6 @@ doCrImp ci = case ci of
     NoCrImp -> const ImpulseNothing
     TurnTowardCr x -> \cr -> TurnToward (cr ^. crPos . _xy) x
 
-doP2Imp :: P2Imp -> Point2 -> Impulse
-doP2Imp p2i = case p2i of
-    P2ImpNo -> const ImpulseNothing
-
 doWdCrBl :: WdCrBl -> World -> Creature -> Bool
 doWdCrBl wcb = case wcb of
     WdCrTrue -> const $ const True
@@ -64,10 +52,6 @@ doCrAc ca = case ca of
 --fleeFromTarget :: Creature -> Action
 --fleeFromTarget cr = fleeFrom cr (_targetCr (_crIntention cr))
 
-doP2Ac :: P2Ac -> Point2 -> Action
-doP2Ac p2a = case p2a of
-    P2NoAction -> const ActionNothing
-
 doMP2Ac :: MP2Ac -> Maybe Point2 -> Action
 doMP2Ac mp2a = case mp2a of
     MP2NoAction -> const ActionNothing