Continue ai refactor

src/Dodge/Creature/Action.hs

@@ -76,7 +76,7 @@ crMvBy p' cr = stepForward (magV p) $ over crPos (+.+ p) cr
   where 
     p =  (*.*) (equipFactor * aimingFactor) $ rotateV (_crDir cr) p'
     equipFactor = product $ map equipSpeed $ IM.elems $ _crInv cr
-    aimingFactor | (_posture $ _stance $ _crState cr) == Aiming
+    aimingFactor | (_posture $ _crStance cr) == Aiming
                       = fromMaybe 1 $ it ^? itAimingSpeed
                  | otherwise = 1
     it = _crInv cr IM.! _crInvSel cr
@@ -85,7 +85,7 @@ stepForward
     :: Float    -- ^ Speed
     -> Creature 
     -> Creature
-stepForward speed cr = over (crState . stance . carriage) f cr
+stepForward speed cr = over (crStance . carriage) f cr
   where 
     f (w@Walking {}) = w {_stepToAdd = ceiling speed}
     f s = s