From 1644fee89aca10fc97aa1d3a2218c81d07715dd1 Mon Sep 17 00:00:00 2001 From: Kei Hibino Date: Wed, 8 May 2013 17:15:45 +0900 Subject: [PATCH] Specify associativity for column selector (!, !?) lower than Pi path constructor (:*). --- relational-join/src/Database/Relational/Query/Join.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/relational-join/src/Database/Relational/Query/Join.hs b/relational-join/src/Database/Relational/Query/Join.hs index 862884c6..fa369fa4 100644 --- a/relational-join/src/Database/Relational/Query/Join.hs +++ b/relational-join/src/Database/Relational/Query/Join.hs @@ -118,6 +118,7 @@ p ! pi' = project $ Projection.pi p pi' (!?) :: (PersistableWidth b, Projectable p) => Projection (Maybe a) -> Pi a b -> p (Maybe b) p !? pi' = project $ Projection.piMaybe p pi' +infixl 8 !, !? infixl 1 >*<