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 +4/−6
- src/Database/Esqueleto.hs +4/−2
- src/Database/Esqueleto/Internal/Language.hs +2/−2
- src/Database/Esqueleto/Internal/Sql.hs +3/−3
- test/Test.hs +5/−2
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