Monadizing GameLogic.Action.Defend