git.iko.soy/squeal
on dev help sign in
no need for unsafety
a82907eEitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Manipulation.hs+1−1
compare with dev
unifiedsplit
@@ -198,7 +198,7 @@ newtype Manipulation
198instance RenderSQL (Manipulation db params columns) where
198instance RenderSQL (Manipulation db params columns) where
199 renderSQL = renderManipulation
199 renderSQL = renderManipulation
200instance With Manipulation where
200instance With Manipulation where
201− with Done manip = UnsafeManipulation $ renderManipulation manip
201+ with Done manip = manip
202 with (cte :>> ctes) manip = UnsafeManipulation $
202 with (cte :>> ctes) manip = UnsafeManipulation $
203 "WITH" <+> renderCommonTableExpressions renderManipulation cte ctes
203 "WITH" <+> renderCommonTableExpressions renderManipulation cte ctes
204 <+> renderManipulation manip
204 <+> renderManipulation manip
squeal-postgresql/src/Squeal/PostgreSQL/Query.hs+1−1
@@ -1383,7 +1383,7 @@ class With statement where
1383 -- ^ larger query
1383 -- ^ larger query
1384 -> statement db0 params row
1384 -> statement db0 params row
1385instance With Query where
1385instance With Query where
1386− with Done query = UnsafeQuery $ renderQuery query
1386+ with Done query = query
1387 with (cte :>> ctes) query = UnsafeQuery $
1387 with (cte :>> ctes) query = UnsafeQuery $
1388 "WITH" <+> renderCommonTableExpressions renderQuery cte ctes
1388 "WITH" <+> renderCommonTableExpressions renderQuery cte ctes
1389 <+> renderQuery query
1389 <+> renderQuery query