on dev help sign in
generalize Aliasable instance

for `CommonTableExpression`s over any statements

commit1f8441487dd292805086b08e6f1a03e319134f37 authorEitan Chatav <eitan.chatav@gmail.com> dateSat 18 Aug 2018, 11:29 (8 years ago) parentd93e152
1 file changed+6−6
squeal-postgresql/src/Squeal/PostgreSQL/Query.hs+6−6
squeal-postgresql/src/Squeal/PostgreSQL/Query.hs+6−6
@@ -1321,13 +1321,13 @@ data CommonTableExpression statement
13211321 statement params schema (alias ::: 'View cte ': schema)
13221322instance (KnownSymbol alias, schema1 ~ (alias ::: 'View cte ': schema))
13231323 => Aliasable alias
1324− (Query schema params cte)
1325− (CommonTableExpression Query params schema schema1) where
1326− query `as` alias = CommonTableExpression (query `as` alias)
1324+ (statement schema params cte)
1325+ (CommonTableExpression statement params schema schema1) where
1326+ statement `as` alias = CommonTableExpression (statement `as` alias)
13271327instance (KnownSymbol alias, schema1 ~ (alias ::: 'View cte ': schema))
1328− => Aliasable alias (Query schema params cte)
1329− (AlignedList (CommonTableExpression Query params) schema schema1) where
1330− query `as` alias = single (query `as` alias)
1328+ => Aliasable alias (statement schema params cte)
1329+ (AlignedList (CommonTableExpression statement params) schema schema1) where
1330+ statement `as` alias = single (statement `as` alias)
13311331
13321332renderCommonTableExpression
13331333 :: (forall sch ps row. statement ps sch row -> ByteString)