on dev help sign in
no need for unsafety
commita82907ee19d67ddbcfa56fa5ad2f58679391f3e2 authorEitan Chatav <eitan.chatav@gmail.com> dateWed 5 Dec 2018, 09:52 (8 years ago) parenta3d3942
2 files changed+2−2
squeal-postgresql/src/Squeal/PostgreSQL/Manipulation.hs+1−1 squeal-postgresql/src/Squeal/PostgreSQL/Query.hs+1−1
squeal-postgresql/src/Squeal/PostgreSQL/Manipulation.hs+1−1
@@ -198,7 +198,7 @@ newtype Manipulation
198198instance RenderSQL (Manipulation db params columns) where
199199 renderSQL = renderManipulation
200200instance With Manipulation where
201− with Done manip = UnsafeManipulation $ renderManipulation manip
201+ with Done manip = manip
202202 with (cte :>> ctes) manip = UnsafeManipulation $
203203 "WITH" <+> renderCommonTableExpressions renderManipulation cte ctes
204204 <+> renderManipulation manip
squeal-postgresql/src/Squeal/PostgreSQL/Query.hs+1−1
@@ -1383,7 +1383,7 @@ class With statement where
13831383 -- ^ larger query
13841384 -> statement db0 params row
13851385instance With Query where
1386− with Done query = UnsafeQuery $ renderQuery query
1386+ with Done query = query
13871387 with (cte :>> ctes) query = UnsafeQuery $
13881388 "WITH" <+> renderCommonTableExpressions renderQuery cte ctes
13891389 <+> renderQuery query