From b0b40a07ffcd3990f1c449c12986a5bf515229a1 Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Tue, 21 Apr 2015 18:52:26 +0200 Subject: [PATCH] make join constructors left-associative --- src/Database/Esqueleto/Internal/Language.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Database/Esqueleto/Internal/Language.hs b/src/Database/Esqueleto/Internal/Language.hs index 37be821..82c699f 100644 --- a/src/Database/Esqueleto/Internal/Language.hs +++ b/src/Database/Esqueleto/Internal/Language.hs @@ -390,7 +390,8 @@ infixl 6 +., -. infixr 5 ++. infix 4 ==., >=., >., <=., <., !=. infixr 3 &&., =., +=., -=., *=., /=. -infixr 2 ||., `InnerJoin`, `CrossJoin`, `LeftOuterJoin`, `RightOuterJoin`, `FullOuterJoin`, `like` +infixr 2 ||., `like` +infixl 2 `InnerJoin`, `CrossJoin`, `LeftOuterJoin`, `RightOuterJoin`, `FullOuterJoin` -- | Syntax sugar for 'case_'. --