Monadizing GameLogic.Action.Shield