persistent-relational-record 0.1.0.0 → 0.1.1.0
raw patch · 20 files changed
+97/−42 lines, 20 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Database.Persist.Relational.Instances: instance Database.Persist.Relational.ToPersistEntity.ToPersistEntity GHC.Base.String GHC.Base.String
- Database.Persist.Relational.Instances: instance Database.Record.FromSql.FromSql Database.Persist.Types.Base.PersistValue GHC.Base.String
- Database.Persist.Relational.Instances: instance Database.Record.ToSql.ToSql Database.Persist.Types.Base.PersistValue GHC.Base.String
Files
- .travis.yml +14/−10
- .travis/stack-lts-2.yaml +7/−5
- .travis/stack-lts-5-hrrhead.yaml +0/−15
- .travis/stack-lts-5.yaml +7/−5
- .travis/stack-lts-6.yaml +1/−1
- .travis/stack-lts-7.yaml +1/−1
- .travis/stack-lts-8-hrrhead.yaml +16/−0
- .travis/stack-lts-8.yaml +16/−0
- ChangeLog.md +8/−0
- README.md +6/−2
- examples/Image.hs +1/−0
- examples/ImageTag.hs +1/−0
- examples/Tag.hs +1/−0
- examples/Types.hs +1/−1
- persistent-relational-record.cabal +2/−1
- src/Database/Persist/Relational/TH.hs +11/−1
- tests/Fixtures/BlogSample/Post.hs +1/−0
- tests/Fixtures/BlogSample/PostTag.hs +1/−0
- tests/Fixtures/BlogSample/Tag.hs +1/−0
- tests/Fixtures/BlogSample/User.hs +1/−0
.travis.yml view
@@ -3,41 +3,45 @@ matrix: include:- - env: GHCVER=7.8.4 STACK_YAML=stack-lts-2.yaml+ - env: GHCVER=7.8.4 STACK_LTS=lts-2 STACK_TEMPLATE=stack-lts-2.yaml addons: apt: sources: [ hvr-ghc ] packages: [ ghc-7.8.4 ]- - env: GHCVER=7.10.3 STACK_YAML=stack-lts-5.yaml+ - env: GHCVER=7.10.3 STACK_LTS=lts-5 STACK_TEMPLATE=stack-lts-5.yaml addons: apt: sources: [ hvr-ghc ] packages: [ ghc-7.10.3 ]- - env: GHCVER=7.10.3 STACK_YAML=stack-lts-5-hrrhead.yaml+ - env: GHCVER=7.10.3 STACK_LTS=lts-6 STACK_TEMPLATE=stack-lts-6.yaml addons: apt: sources: [ hvr-ghc ] packages: [ ghc-7.10.3 ]- - env: GHCVER=7.10.3 STACK_YAML=stack-lts-6.yaml+ - env: GHCVER=8.0.1 STACK_LTS=lts-7 STACK_TEMPLATE=stack-lts-7.yaml addons: apt: sources: [ hvr-ghc ]- packages: [ ghc-7.10.3 ]- - env: GHCVER=8.0.1 STACK_YAML=stack-lts-7.yaml+ packages: [ ghc-8.0.1 ]+ - env: GHCVER=8.0.2 STACK_LTS=lts-8 STACK_TEMPLATE=stack-lts-8.yaml addons: apt: sources: [ hvr-ghc ]- packages: [ ghc-8.0.1 ]+ packages: [ ghc-8.0.2 ]+ - env: GHCVER=8.0.2 STACK_LTS=lts-8 STACK_TEMPLATE=stack-lts-8-hrrhead.yaml+ addons:+ apt:+ sources: [ hvr-ghc ]+ packages: [ ghc-8.0.2 ] allow_failures:- - env: GHCVER=7.10.3 STACK_YAML=stack-lts-5-hrrhead.yaml+ - env: GHCVER=8.0.2 STACK_LTS=lts-8 STACK_TEMPLATE=stack-lts-8-hrrhead.yaml before_install: # Download and unpack the stack executable - mkdir -p ~/.local/bin - export PATH=$HOME/.local/bin:/opt:/opt/ghc/$GHCVER/bin:$PATH - travis_retry curl -L https://www.stackage.org/stack/linux-x86_64 | tar xz --wildcards --strip-components=1 -C ~/.local/bin '*/stack'- # stack searches .cabal file based on STACK_YAML directory.- - cp .travis/stack*.yaml .+ - m4 -D__RESOLVER__=$(curl -sL https://www.stackage.org/download/snapshots.json | jq '."'$STACK_LTS'"' -r) .travis/$STACK_TEMPLATE > stack.yaml install: - travis_wait stack --no-terminal --skip-ghc-check setup
.travis/stack-lts-2.yaml view
@@ -1,10 +1,12 @@-resolver: lts-2.22+resolver: __RESOLVER__ packages: - '.' extra-deps:-- names-th-0.2.0.1-- persistable-record-0.4.0.0-- relational-query-0.8.2.1-- sql-words-0.1.4.0+- names-th-0.2.0.2+- persistable-record-0.5.0.1+- relational-query-0.9.1.0+- sql-words-0.1.4.1+- th-data-compat-0.0.2.2+- th-reify-compat-0.0.1.1 flags: {} extra-package-dbs: []
− .travis/stack-lts-5-hrrhead.yaml
@@ -1,15 +0,0 @@-resolver: lts-5.18-packages:-- location:- git: https://github.com/khibino/haskell-relational-record.git- commit: master- subdirs:- - names-th- - persistable-record- - relational-query- - sql-words-- '.'-extra-deps:-- quickcheck-simple-0.1.0.0-flags: {}-extra-package-dbs: []
.travis/stack-lts-5.yaml view
@@ -1,10 +1,12 @@-resolver: lts-5.18+resolver: __RESOLVER__ packages: - '.' extra-deps:-- names-th-0.2.0.1-- persistable-record-0.4.0.0-- relational-query-0.8.2.1-- sql-words-0.1.4.0+- names-th-0.2.0.2+- persistable-record-0.5.0.1+- relational-query-0.9.1.0+- sql-words-0.1.4.1+- th-data-compat-0.0.2.2+- th-reify-compat-0.0.1.1 flags: {} extra-package-dbs: []
.travis/stack-lts-6.yaml view
@@ -1,4 +1,4 @@-resolver: lts-6.23+resolver: __RESOLVER__ packages: - '.' extra-deps: []
.travis/stack-lts-7.yaml view
@@ -1,4 +1,4 @@-resolver: lts-7.5+resolver: __RESOLVER__ packages: - '.' extra-deps:
+ .travis/stack-lts-8-hrrhead.yaml view
@@ -0,0 +1,16 @@+resolver: __RESOLVER__+packages:+- '.'+- location:+ git: https://github.com/khibino/haskell-relational-record.git+ commit: master+ subdirs:+ - names-th+ - persistable-record+ - relational-query+ - sql-words+extra-deps: []+flags:+ persistent-relational-record:+ test-examples: True+extra-package-dbs: []
+ .travis/stack-lts-8.yaml view
@@ -0,0 +1,16 @@+resolver: __RESOLVER__+packages:+- '.'+- location:+ git: https://github.com/khibino/haskell-relational-record.git+ commit: master+ subdirs:+ - names-th+ - persistable-record+ - relational-query+ - sql-words+extra-deps: []+flags:+ persistent-relational-record:+ test-examples: True+extra-package-dbs: []
+ ChangeLog.md view
@@ -0,0 +1,8 @@+## 0.1.1.0++- Support persistable-record >= 0.5.0+- Tested with GHC 8.0.2++## 0.1.0.0++- Initial release
README.md view
@@ -1,10 +1,13 @@ persistent-relational-record ============================ +[](https://travis-ci.org/himura/persistent-relational-record)+[](http://packdeps.haskellers.com/feed?needle=persistent-relational-record)+ ## About ## -persistent-relational-record build a bridge between <https://hackage.haskell.org/package/relational-query Haskell Relational Record>-and <http://hackage.haskell.org/package/persistent Persistent>.+persistent-relational-record build a bridge between [Haskell Relational Record](https://hackage.haskell.org/package/relational-query)+and [Persistent](http://hackage.haskell.org/package/persistent). It uses the persistent entities definition instead of obtaining schema from DB at compilation time. ## Getting Started ##@@ -51,6 +54,7 @@ Here is the content of "Image.hs": ~~~~ {.haskell}+{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-}
examples/Image.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-}
examples/ImageTag.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-}
examples/Tag.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-}
examples/Types.hs view
@@ -8,7 +8,7 @@ import Database.Persist.Relational import Database.Persist.Sql import Database.Record.TH (deriveNotNullType, deriveNotNullType)-import Database.Relational.Query.Pure+import Database.Relational.Query import Database.Relational.Query.TH (defineScalarDegree, defineScalarDegree) data ImageType = JPEG | PNG | BMP | GIF
persistent-relational-record.cabal view
@@ -1,5 +1,5 @@ name: persistent-relational-record-version: 0.1.0.0+version: 0.1.1.0 synopsis: relational-record on persisten backends. homepage: http://github.com/himura/persistent-relational-record license: BSD3@@ -16,6 +16,7 @@ .travis.yml .travis/*.sh .travis/*.yaml+ ChangeLog.md README.md stack.yaml
src/Database/Persist/Relational/TH.hs view
@@ -22,7 +22,13 @@ import qualified Database.Persist.Sql as PersistSql import Database.Record (PersistableWidth (..)) import Database.Record.FromSql-import Database.Record.TH (deriveNotNullType, recordType)+import Database.Record.TH ( deriveNotNullType+#if MIN_VERSION_persistable_record(0, 5, 0)+ , recordTemplate+#else+ , recordType+#endif+ ) import Database.Record.ToSql import Database.Relational.Query hiding ((!)) import Database.Relational.Query.TH (defineTable, defineScalarDegree)@@ -91,7 +97,11 @@ #endif recType info = error $ "makeToPersistEntityInstance: unexpected record info " ++ show info +#if MIN_VERSION_persistable_record(0, 5, 0)+ hrrRecordType = fst $ recordTemplate (recordConfig . nameConfig $ config) schema tableName+#else hrrRecordType = recordType (recordConfig . nameConfig $ config) schema tableName+#endif -- | Generate instances for haskell-relational-record. mkHrrInstances :: [EntityDef] -> Q [Dec]
tests/Fixtures/BlogSample/Post.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-}
tests/Fixtures/BlogSample/PostTag.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-}
tests/Fixtures/BlogSample/Tag.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-}
tests/Fixtures/BlogSample/User.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE MultiParamTypeClasses #-}