Cleanup

src/Dodge/CreatureEffect.hs

@@ -10,14 +10,6 @@ import Dodge.Path
 import Geometry
 import Control.Lens
 
-doCrWdWd :: CrWdWd -> Creature -> World -> World
-doCrWdWd cww = case cww of
-    CrWdWdId -> const id
-
---doIntImp :: IntImp -> Int -> Impulse
---doIntImp ii = case ii of
---    NoIntImp -> const ImpulseNothing
-
 doCrImp :: CrImp -> Creature -> Impulse
 doCrImp ci = case ci of
     NoCrImp -> const ImpulseNothing
@@ -52,10 +44,6 @@ doCrAc ca = case ca of
 --fleeFromTarget :: Creature -> Action
 --fleeFromTarget cr = fleeFrom cr (_targetCr (_crIntention cr))
 
-doMP2Ac :: MP2Ac -> Maybe Point2 -> Action
-doMP2Ac mp2a = case mp2a of
-    MP2NoAction -> const ActionNothing
-
 doCrWdAc :: CrWdAc -> Creature -> World -> Action
 doCrWdAc cw = case cw of
     CrWdBFSThenReturn t -> \cr w -> fromMaybe NoAction $ do