Assorted changes, cleanup menu selection text

2022-04-25 23:27:39 +01:00
parent 67e6c4a5bd
commit fa8d8b5899
22 changed files with 217 additions and 108 deletions
@@ -67,6 +67,7 @@ followImpulse cr w imp = case imp of
    AddGoal gl      -> crup $ cr & crActionPlan . crGoal .:~ gl 
    ArbitraryImpulseFunction f  -> crup $ f w cr
    ArbitraryImpulse f  -> followImpulse cr w (f cr w) 
+    ArbitraryImpulseEffect f -> (f cr, cr)
    ImpulseUseTargetCID f   -> case cr ^? crIntention . targetCr . _Just of
        Just tcr -> followImpulse cr w (f $ _crID tcr)
        _        -> crup cr