snaplet-hdbc 0.6.2 → 0.6.2.1

raw patch · 2 files changed

+5/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• snaplet-hdbc.cabal +1/−1
• src/Snap/Snaplet/Auth/Backends/Hdbc.hs +4/−7

@@ -1,5 +1,5 @@ name:           snaplet-hdbc-version:        0.6.2+version:        0.6.2.1 synopsis:       HDBC snaplet for Snap Framework description:    This snaplet consists of two parts: an HDBC abstraction snaplet                 and an HDBC authentication backend for Snap's authentication

@@ -251,13 +251,10 @@ authQuery :: HdbcAuthManager -> (String, [SqlValue]) -> IO (Maybe AuthUser) authQuery (HdbcAuthManager pool tbl _) (qry, vals) = withResource pool $   \conn -> do-    res <- withTransaction conn $ \conn' -> do-      stmt  <- prepare conn' qry-      _     <- execute stmt vals-      fetchRowMap stmt-    case res of-      Nothing  -> return Nothing-      Just mp  -> return $ Just $ mkUser tbl mp+    stmt  <- prepare conn qry+    _     <- execute stmt vals+    res <- fetchRowMap stmt+    return $ (return . mkUser tbl) =<< res  mkUser :: AuthTable -> Map String SqlValue -> AuthUser mkUser tbl mp =