persistent-sqlite 1.1.0 → 1.1.2
raw patch · 2 files changed
+4/−13 lines, 2 filesdep ~conduitdep ~persistent
Dependency ranges changed: conduit, persistent
Files
- Database/Persist/Sqlite.hs +1/−10
- persistent-sqlite.cabal +3/−3
Database/Persist/Sqlite.hs view
@@ -25,15 +25,8 @@ import Data.List (intercalate) import Data.IORef import qualified Data.Map as Map-#if MIN_VERSION_monad_control(0, 3, 0) import Control.Monad.Trans.Control (control) import qualified Control.Exception as E-#define MBCIO MonadBaseControl IO-#else-import Control.Monad.IO.Control (MonadControlIO)-import Control.Exception.Control (finally)-#define MBCIO MonadControlIO-#endif import Data.Text (Text, pack) import Control.Monad (mzero) import Data.Aeson@@ -257,7 +250,7 @@ ] sqlUnique :: UniqueDef -> String-sqlUnique (UniqueDef _ cname cols) = concat+sqlUnique (UniqueDef _ cname cols _) = concat [ ",CONSTRAINT " , T.unpack $ escape cname , " UNIQUE ("@@ -291,7 +284,6 @@ <*> o .: "poolsize" loadConfig _ = mzero -#if MIN_VERSION_monad_control(0, 3, 0) finally :: MonadBaseControl IO m => m a -- ^ computation to run first -> m b -- ^ computation to run afterward (even if an exception was raised)@@ -300,4 +292,3 @@ E.finally (runInIO a) (runInIO sequel) {-# INLINABLE finally #-}-#endif
persistent-sqlite.cabal view
@@ -1,5 +1,5 @@ name: persistent-sqlite-version: 1.1.0+version: 1.1.2 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>@@ -20,12 +20,12 @@ build-depends: base >= 4 && < 5 , bytestring >= 0.9.1 , transformers >= 0.2.1 && < 0.4- , persistent >= 1.1 && < 1.2+ , persistent >= 1.1.2 && < 1.2 , monad-control >= 0.2 && < 0.4 , containers >= 0.2 , text >= 0.7 && < 1 , aeson >= 0.5- , conduit >= 0.5 && < 0.6+ , conduit >= 0.5.3 && < 0.6 exposed-modules: Database.Sqlite Database.Persist.Sqlite ghc-options: -Wall