snaplet-hasql 0.0.1 → 0.0.2

raw patch · 2 files changed

+8/−9 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• snaplet-hasql.cabal +1/−1
• src/Snap/Snaplet/Hasql.hs +7/−8

@@ -1,5 +1,5 @@ name:                snaplet-hasql-version:             0.0.1+version:             0.0.2 synopsis:            A Hasql snaplet license:             MIT license-file:        LICENSE

@@ -38,22 +38,21 @@     return pool  {-# INLINE session #-}--- | Wrapper around 'session' that just calls 'fail' on failure, and--- uses the available 'poolLens'. Most useful inside 'Handler`s.-session :: (HasPool v db, MonadReader v m) => Session db m r -> m r+-- | Wrapper around 'session' that calls 'fail' on failure.+session :: HasPool v db => Session db IO r -> Handler b v r session f = do   db <- view poolLens-  r  <- Hasql.session db f+  r  <- liftIO (Hasql.session db f)   case r of     Right a -> return a     Left er -> fail (show er)  {-# INLINE session' #-} -- | Wrapper around 'session'.-session' :: (HasPool v db, MonadReader v m)-         => Session db m r-         -> m (Either (SessionError db) r)+session' :: HasPool v db+         => Session db IO r+         -> Handler b v (Either (SessionError db) r) session' f = do   db <- view poolLens-  Hasql.session db f+  liftIO (Hasql.session db f)