git.iko.soy/squeal
on dev help sign in
too many mmms
8492289Eitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Manipulation.hs+3−5
compare with dev
unifiedsplit
@@ -231,8 +231,7 @@ more than one row, but there is no way to insert less than one row.
231Even if you know only some column values, a complete row must be created.
231Even if you know only some column values, a complete row must be created.
232-}
232-}
233insertInto
233insertInto
234− :: ( db ~ (commons :=> schemas)
235− , Has sch schemas schema
234+ :: ( Has sch schemas schema
236 , Has tab schema ('Table table)
235 , Has tab schema ('Table table)
237 , columns ~ TableToColumns table
236 , columns ~ TableToColumns table
238 , row0 ~ TableToRow table
237 , row0 ~ TableToRow table
@@ -250,8 +249,7 @@ insertInto tab qry conflict ret = UnsafeManipulation $
250 <> renderSQL ret
249 <> renderSQL ret
251
250
252insertInto_
251insertInto_
253− :: ( db ~ (commons :=> schemas)
254− , Has sch schemas schema
252+ :: ( Has sch schemas schema
255 , Has tab schema ('Table table)
253 , Has tab schema ('Table table)
256 , columns ~ TableToColumns table
254 , columns ~ TableToColumns table
257 , row ~ TableToRow table
255 , row ~ TableToRow table
@@ -276,7 +274,7 @@ data QueryClause commons schemas params columns where
276 Subquery
274 Subquery
277 :: ColumnsToRow columns ~ row
275 :: ColumnsToRow columns ~ row
278 => Query commons schemas params row
276 => Query commons schemas params row
279− -> QueryClause commmons schemas params columns
277+ -> QueryClause commons schemas params columns
280
278
281instance RenderSQL (QueryClause commons schemas params columns) where
279instance RenderSQL (QueryClause commons schemas params columns) where
282 renderSQL = \case
280 renderSQL = \case