packages feed

esqueleto 0.2.9 → 1.0

raw patch · 5 files changed

+18/−15 lines, 5 filesdep ~persistentdep ~persistent-sqlitedep ~persistent-templatePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: persistent, persistent-sqlite, persistent-template

API changes (from Hackage documentation)

- Database.Esqueleto.Internal.Sql: instance Esqueleto SqlQuery SqlExpr SqlPersist
+ Database.Esqueleto.Internal.Sql: instance Esqueleto SqlQuery SqlExpr SqlBackend
- Database.Esqueleto: deleteKey :: (PersistStore backend m, PersistEntity val) => Key backend val -> backend m ()
+ Database.Esqueleto: deleteKey :: (PersistStore m, PersistMonadBackend m ~ PersistEntityBackend val, PersistEntity val) => Key val -> m ()
- Database.Esqueleto: type SqlEntity ent = (PersistEntity ent, PersistEntityBackend ent ~ SqlPersist)
+ Database.Esqueleto: type SqlEntity ent = (PersistEntity ent, PersistEntityBackend ent ~ SqlBackend)
- Database.Esqueleto.Internal.Sql: type SqlEntity ent = (PersistEntity ent, PersistEntityBackend ent ~ SqlPersist)
+ Database.Esqueleto.Internal.Sql: type SqlEntity ent = (PersistEntity ent, PersistEntityBackend ent ~ SqlBackend)

Files

esqueleto.cabal view
@@ -1,5 +1,5 @@ name:                esqueleto-version:             0.2.9+version:             1.0 synopsis:            Bare bones, type-safe EDSL for SQL queries on persistent backends. homepage:            https://github.com/meteficha/esqueleto license:             BSD3@@ -11,8 +11,6 @@ build-type:          Simple cabal-version:       >=1.8 description:-  /This is a preview release./-  .   @persistent@ is a library for type-safe data serialization.  It   has many kinds of backends, such as SQL backends   (@persistent-mysql@, @persistent-postgresql@,@@ -57,7 +55,7 @@   build-depends:       base                 >= 4.5    && < 4.7     , text                 == 0.11.*-    , persistent           >= 1.0.1  && < 1.1+    , persistent           == 1.1.*     , transformers         >= 0.2     , unordered-containers >= 0.2 @@ -81,8 +79,8 @@     , HUnit     , QuickCheck     , hspec               == 1.3.*-    , persistent-sqlite   == 1.0.*-    , persistent-template == 1.0.*+    , persistent-sqlite   == 1.1.*+    , persistent-template == 1.1.*     , monad-control     , monad-logger     , fast-logger         >= 0.2 && < 0.4
src/Database/Esqueleto.hs view
@@ -296,8 +296,10 @@  -- | Synonym for 'Database.Persist.Store.delete' that does not -- clash with @esqueleto@'s 'delete'.-deleteKey :: (PersistStore backend m, PersistEntity val)-          => Key backend val -> backend m ()+deleteKey :: ( PersistStore m+             , PersistMonadBackend m ~ PersistEntityBackend val+             , PersistEntity val )+          => Key val -> m () deleteKey = Database.Persist.Store.delete  -- $reexports
src/Database/Esqueleto/Internal/Language.hs view
@@ -263,9 +263,9 @@   --   -- @   -- select $-  -- from $ \person -> do+  -- from $ \\person -> do   -- where_ $ exists $-  --          from $ \post -> do+  --          from $ \\post -> do   --          where_ (post ^. BlogPostAuthorId ==. person ^. PersonId)   -- return person   -- @
src/Database/Esqueleto/Internal/Sql.hs view
@@ -49,7 +49,7 @@ import Database.Persist.EntityDef import Database.Persist.GenericSql import Database.Persist.GenericSql.Internal (Connection(escapeName, noLimit))-import Database.Persist.GenericSql.Raw (withStmt, execute)+import Database.Persist.GenericSql.Raw (execute, SqlBackend, withStmt) import Database.Persist.Store hiding (delete) import qualified Control.Monad.Trans.Reader as R import qualified Control.Monad.Trans.State as S@@ -83,7 +83,7 @@  -- | Constraint synonym for @persistent@ entities whose backend -- is 'SqlPersist'.-type SqlEntity ent = (PersistEntity ent, PersistEntityBackend ent ~ SqlPersist)+type SqlEntity ent = (PersistEntity ent, PersistEntityBackend ent ~ SqlBackend)   ----------------------------------------------------------------------@@ -242,7 +242,7 @@ data OrderByType = ASC | DESC  -instance Esqueleto SqlQuery SqlExpr SqlPersist where+instance Esqueleto SqlQuery SqlExpr SqlBackend where   fromStart = x     where       x = do
test/Test.hs view
@@ -544,8 +544,11 @@ ----------------------------------------------------------------------  -insert' :: (PersistEntity val, PersistStore (PersistEntityBackend val) m)-        => val -> PersistEntityBackend val m (Entity val)+insert' :: ( Functor m+           , PersistStore m+           , PersistMonadBackend m ~ PersistEntityBackend val+           , PersistEntity val )+        => val -> m (Entity val) insert' v = flip Entity v <$> insert v