Monadizing GameLogic.Action.Attack