on dev help sign in
!
a22febcEitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Schema.hs+1−1
@@ -159,4 +159,4 @@ data Grouping
159 | Grouped [(Symbol,Symbol)]
159 | Grouped [(Symbol,Symbol)]
160
160
161class IsTableColumn table column expression where
161class IsTableColumn table column expression where
162− (&.) :: Alias table -> Alias column -> expression
162+ (!) :: Alias table -> Alias column -> expression
squeal-postgresql/test/Squeal/PostgreSQL/StatementSpec.hs+8−8
@@ -181,9 +181,9 @@ spec = do
181 let
181 let
182 statement :: Query JoinTables '[] ValueColumns
182 statement :: Query JoinTables '[] ValueColumns
183 statement = select
183 statement = select
184− ( (#orders &. #orderVal) `As` #orderVal
184+ ( (#orders ! #orderVal) `As` #orderVal
185− :* (#customers &. #customerVal) `As` #customerVal
185+ :* (#customers ! #customerVal) `As` #customerVal
186− :* (#shippers &. #shipperVal) `As` #shipperVal :* Nil)
186+ :* (#shippers ! #shipperVal) `As` #shipperVal :* Nil)
187 ( from (Table (#orders `As` #orders)
187 ( from (Table (#orders `As` #orders)
188 & CrossJoin (Table (#customers `As` #customers))
188 & CrossJoin (Table (#customers `As` #customers))
189 & CrossJoin (Table (#shippers `As` #shippers))))
189 & CrossJoin (Table (#shippers `As` #shippers))))
@@ -199,14 +199,14 @@ spec = do
199 let
199 let
200 statement :: Query JoinTables '[] ValueColumns
200 statement :: Query JoinTables '[] ValueColumns
201 statement = select
201 statement = select
202− ( (#orders &. #orderVal) `As` #orderVal
202+ ( (#orders ! #orderVal) `As` #orderVal
203− :* (#customers &. #customerVal) `As` #customerVal
203+ :* (#customers ! #customerVal) `As` #customerVal
204− :* (#shippers &. #shipperVal) `As` #shipperVal :* Nil)
204+ :* (#shippers ! #shipperVal) `As` #shipperVal :* Nil)
205 ( from (Table (#orders `As` #orders)
205 ( from (Table (#orders `As` #orders)
206 & InnerJoin (Table (#customers `As` #customers))
206 & InnerJoin (Table (#customers `As` #customers))
207− ((#orders &. #customerID) ==* (#customers &. #customerID))
207+ ((#orders ! #customerID) ==* (#customers ! #customerID))
208 & InnerJoin (Table (#shippers `As` #shippers))
208 & InnerJoin (Table (#shippers `As` #shippers))
209− ((#orders &. #shipperID) ==* (#shippers &. #shipperID))))
209+ ((#orders ! #shipperID) ==* (#shippers ! #shipperID))))
210 statement `queryRenders`
210 statement `queryRenders`
211 "SELECT\
211 "SELECT\
212 \ orders.orderVal AS orderVal,\
212 \ orders.orderVal AS orderVal,\