add operator precedence for `Then` and `OrElse`

2014-04-13 19:53:58 -05:00 · 2014-04-13 19:53:58 -05:00 · fa8721ddd5
parent 4898dea404
commit fa8721ddd5
1 changed files with 2 additions and 2 deletions
--- a/src/Waterdeep/Types.hs
+++ b/src/Waterdeep/Types.hs
@ -233,8 +233,8 @@ data GameAction = NoAction
                | EachOpponent GameAction
                | CurrentPlayer GameAction
                deriving (Show)
-infixr `Then`
-infixr `OrElse`
+infixr 7 `Then`
+infixr 3 `OrElse`

 data PlotQualifier = ActionProvides [Resource]
                   | CompletesQuest [QuestType]