Export P.returning as 'returning'

mightybyte · Aug 20, 2012 · db061d4 · db061d4
1 parent 0b8819d
commit db061d4
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Snap/Snaplet/PostgresqlSimple.hs b/src/Snap/Snaplet/PostgresqlSimple.hs
@@ -73,6 +73,7 @@ module Snap.Snaplet.PostgresqlSimple (
   , execute
   , execute_
   , executeMany
+  , returning
   , begin
   , beginLevel
   , beginMode
@@ -231,6 +232,11 @@ query q params = withPG (\c -> P.query c q params)
 query_ :: (HasPostgres m, FromRow r) => P.Query -> m [r]
 query_ q = withPG (\c -> P.query_ c q)
 
+------------------------------------------------------------------------------
+-- | See 'P.returning'
+returning :: (HasPostgres m, ToRow q, FromRow r)
+      => P.Query -> [q] -> m [r]
+returning q params = withPG (\c -> P.returning c q params)
 
 ------------------------------------------------------------------------------
 -- |