From fa8721ddd5eb9845ff82e34460c59f8707f317ee Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Sun, 13 Apr 2014 19:53:58 -0500
Subject: [PATCH] add operator precedence for `Then` and `OrElse`

---
 src/Waterdeep/Types.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Waterdeep/Types.hs b/src/Waterdeep/Types.hs
index 139e1f6..b856622 100644
--- 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]