snaplet-postgresql-simple 0.2 → 0.2.0.1

raw patch · 3 files changed

+9/−2 lines, 3 files

Files

• snaplet-postgresql-simple.cabal +1/−1
• src/Snap/Snaplet/Auth/Backends/PostgresqlSimple.hs +2/−1
• src/Snap/Snaplet/PostgresqlSimple.hs +6/−0

@@ -1,5 +1,5 @@ name:           snaplet-postgresql-simple-version:        0.2+version:        0.2.0.1 synopsis:       postgresql-simple snaplet for the Snap Framework description:    This snaplet contains support for using the Postgresql                 database with a Snap Framework application via the

@@ -101,11 +101,12 @@     withResource pamConnPool $ \conn -> do         res <- P.query_ conn $ Query $ T.encodeUtf8 $           "select relname from pg_class where relname='"-          `T.append` tblName pamTable `T.append` "'"+          `T.append` schemaless (tblName pamTable) `T.append` "'"         when (null (res :: [Only T.Text])) $           P.execute_ conn (Query $ T.encodeUtf8 q) >> return ()     return ()   where+    schemaless = T.reverse . T.takeWhile (/='.') . T.reverse     q = T.concat           [ "CREATE TABLE "           , tblName pamTable

@@ -73,6 +73,7 @@   , execute   , execute_   , executeMany+  , returning   , begin   , beginLevel   , beginMode@@ -231,6 +232,11 @@ 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)  ------------------------------------------------------------------------------ -- |