snaplet-postgresql-simple 0.3.0.1 → 0.3.0.2

raw patch · 2 files changed

+5/−5 lines, 2 filesdep ~snap

Dependency ranges changed: snap

Files

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

@@ -1,5 +1,5 @@ name:           snaplet-postgresql-simple-version:        0.3.0.1+version:        0.3.0.2 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@@ -44,7 +44,7 @@     mtl                        >= 2       && < 3,     postgresql-simple          >= 0.2     && < 0.3,     resource-pool-catchio      >= 0.2     && < 0.3,-    snap                       >= 0.10    && < 0.11,+    snap                       >= 0.10    && < 0.12,     text                       >= 0.11    && < 0.12,     transformers               >= 0.2     && < 0.4,     unordered-containers       >= 0.2     && < 0.3

@@ -37,7 +37,7 @@ ------------------------------------------------------------------------------ import           Prelude import           Control.Error-import           Control.Exception (SomeException, catch)+import qualified Control.Exception as E import qualified Data.Configurator as C import qualified Data.HashMap.Lazy as HM import qualified Data.Text as T@@ -297,7 +297,7 @@     params = map (($u) . snd) $ tail colDef              -onFailure :: Monad m => SomeException -> m (Either AuthFailure a)+onFailure :: Monad m => E.SomeException -> m (Either AuthFailure a) onFailure e = return $ Left $ AuthError $ show e  ------------------------------------------------------------------------------@@ -309,7 +309,7 @@         let action = withResource pamConnPool $ \conn -> do                 res <- P.query conn q params                 return $ Right $ fromMaybe u $ listToMaybe res-        catch action onFailure+        E.catch action onFailure                   lookupByUserId PostgresAuthManager{..} uid = do