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]