on dev help sign in
generalize Aliasable instance
1f84414Eitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Query.hs+6−6
@@ -1321,13 +1321,13 @@ data CommonTableExpression statement
1321 statement params schema (alias ::: 'View cte ': schema)
1321 statement params schema (alias ::: 'View cte ': schema)
1322instance (KnownSymbol alias, schema1 ~ (alias ::: 'View cte ': schema))
1322instance (KnownSymbol alias, schema1 ~ (alias ::: 'View cte ': schema))
1323 => Aliasable alias
1323 => Aliasable alias
1324− (Query schema params cte)
1324+ (statement schema params cte)
1325− (CommonTableExpression Query params schema schema1) where
1325+ (CommonTableExpression statement params schema schema1) where
1326− query `as` alias = CommonTableExpression (query `as` alias)
1326+ statement `as` alias = CommonTableExpression (statement `as` alias)
1327instance (KnownSymbol alias, schema1 ~ (alias ::: 'View cte ': schema))
1327instance (KnownSymbol alias, schema1 ~ (alias ::: 'View cte ': schema))
1328− => Aliasable alias (Query schema params cte)
1328+ => Aliasable alias (statement schema params cte)
1329− (AlignedList (CommonTableExpression Query params) schema schema1) where
1329+ (AlignedList (CommonTableExpression statement params) schema schema1) where
1330− query `as` alias = single (query `as` alias)
1330+ statement `as` alias = single (statement `as` alias)
1331
1331
1332renderCommonTableExpression
1332renderCommonTableExpression
1333 :: (forall sch ps row. statement ps sch row -> ByteString)
1333 :: (forall sch ps row. statement ps sch row -> ByteString)