Work on debugging

2023-04-27 11:35:48 +01:00
parent 35990c53bf
commit 9972e0fdea
17 changed files with 39 additions and 28 deletions
@@ -92,8 +92,8 @@ performTurnToA cr p
    dirv = p -.- cpos
    jit = _mvTurnJit $ _crMvType cr

-{- | Performing an action means that a creature has some impulses for a frame, and
- updates or deletes the action itself.
+{- | Performing an action on a frame creates an OutAction:
+  adds impulses and updates or deletes the action itself.
 -}
 performAction :: Creature -> World -> Action -> OutAction
 performAction cr w ac = case ac of