snaplet-postgresql-simple 0.3 → 0.3.0.1

raw patch · 3 files changed

+7/−8 lines, 3 filesdep ~bytestring

Dependency ranges changed: bytestring

Files

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

@@ -1,5 +1,5 @@ name:           snaplet-postgresql-simple-version:        0.3+version:        0.3.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@@ -36,7 +36,7 @@    build-depends:     base                       >= 4       && < 5,-    bytestring                 >= 0.9.1   && < 0.10,+    bytestring                 >= 0.9.1   && < 0.11,     clientsession              >= 0.7.2   && < 0.9,     configurator               >= 0.2     && < 0.3,     errors                     >= 1.3     && < 1.4,

@@ -35,7 +35,7 @@   ) where  -------------------------------------------------------------------------------import           Prelude hiding (catch)+import           Prelude import           Control.Error import           Control.Exception (SomeException, catch) import qualified Data.Configurator as C@@ -221,7 +221,7 @@   {  tblName             = "snap_auth_user"   ,  colId               = ("uid", "SERIAL PRIMARY KEY")   ,  colLogin            = ("login", "text UNIQUE NOT NULL")-  ,  colEmail            = ("email", "text NOT NULL")+  ,  colEmail            = ("email", "text")   ,  colPassword         = ("password", "text")   ,  colActivatedAt      = ("activated_at", "timestamptz")   ,  colSuspendedAt      = ("suspended_at", "timestamptz")

@@ -110,10 +110,9 @@    ) where -import           Prelude hiding (catch)- import           Control.Applicative-import           Control.Monad.CatchIO hiding (Handler)+import           Control.Monad.CatchIO (MonadCatchIO)+import qualified Control.Monad.CatchIO as CIO import           Control.Monad.IO.Class import           Control.Monad.State import           Control.Monad.Trans.Reader@@ -364,7 +363,7 @@                     => P.TransactionMode -> m a -> m a withTransactionMode mode act = do     beginMode mode-    r <- act `onException` rollback+    r <- act `CIO.onException` rollback     commit     return r