persistent-sqlite 2.13.0.0 → 2.13.0.2
raw patch · 3 files changed
+33/−25 lines, 3 filesdep ~base
Dependency ranges changed: base
Files
- ChangeLog.md +5/−0
- Database/Persist/Sqlite.hs +27/−24
- persistent-sqlite.cabal +1/−1
ChangeLog.md view
@@ -1,5 +1,10 @@ # Changelog for persistent-sqlite +## 2.13.0.1++* [#1265](https://github.com/yesodweb/persistent/pull/1265)+ * Support GHC 9+ ## 2.13.0.0 * [#1225](https://github.com/yesodweb/persistent/pull/1225)
Database/Persist/Sqlite.hs view
@@ -915,6 +915,33 @@ projectBackend = _persistentBackend #if MIN_VERSION_base(4,12,0)+instance (PersistCore b) => PersistCore (RawSqlite b) where+ newtype BackendKey (RawSqlite b) = RawSqliteKey { unRawSqliteKey :: BackendKey (Compatible b (RawSqlite b)) }++makeCompatibleKeyInstances [t| forall b. Compatible b (RawSqlite b) |]+#else+instance (PersistCore b) => PersistCore (RawSqlite b) where+ newtype BackendKey (RawSqlite b) = RawSqliteKey { unRawSqliteKey :: BackendKey (RawSqlite b) }++deriving instance (Show (BackendKey b)) => Show (BackendKey (RawSqlite b))+deriving instance (Read (BackendKey b)) => Read (BackendKey (RawSqlite b))+deriving instance (Eq (BackendKey b)) => Eq (BackendKey (RawSqlite b))+deriving instance (Ord (BackendKey b)) => Ord (BackendKey (RawSqlite b))+deriving instance (Num (BackendKey b)) => Num (BackendKey (RawSqlite b))+deriving instance (Integral (BackendKey b)) => Integral (BackendKey (RawSqlite b))+deriving instance (PersistField (BackendKey b)) => PersistField (BackendKey (RawSqlite b))+deriving instance (PersistFieldSql (BackendKey b)) => PersistFieldSql (BackendKey (RawSqlite b))+deriving instance (Real (BackendKey b)) => Real (BackendKey (RawSqlite b))+deriving instance (Enum (BackendKey b)) => Enum (BackendKey (RawSqlite b))+deriving instance (Bounded (BackendKey b)) => Bounded (BackendKey (RawSqlite b))+deriving instance (ToJSON (BackendKey b)) => ToJSON (BackendKey (RawSqlite b))+deriving instance (FromJSON (BackendKey b)) => FromJSON (BackendKey (RawSqlite b))+#endif+++#if MIN_VERSION_base(4,12,0)+$(pure [])+ makeCompatibleInstances [t| forall b. Compatible b (RawSqlite b) |] #else instance HasPersistBackend b => HasPersistBackend (RawSqlite b) where@@ -959,30 +986,6 @@ upsert rec = withReaderT _persistentBackend . upsert rec upsertBy uniq rec = withReaderT _persistentBackend . upsertBy uniq rec putMany = withReaderT _persistentBackend . putMany-#endif--#if MIN_VERSION_base(4,12,0)-instance (PersistCore b) => PersistCore (RawSqlite b) where- newtype BackendKey (RawSqlite b) = RawSqliteKey { unRawSqliteKey :: BackendKey (Compatible b (RawSqlite b)) }--makeCompatibleKeyInstances [t| forall b. Compatible b (RawSqlite b) |]-#else-instance (PersistCore b) => PersistCore (RawSqlite b) where- newtype BackendKey (RawSqlite b) = RawSqliteKey { unRawSqliteKey :: BackendKey (RawSqlite b) }--deriving instance (Show (BackendKey b)) => Show (BackendKey (RawSqlite b))-deriving instance (Read (BackendKey b)) => Read (BackendKey (RawSqlite b))-deriving instance (Eq (BackendKey b)) => Eq (BackendKey (RawSqlite b))-deriving instance (Ord (BackendKey b)) => Ord (BackendKey (RawSqlite b))-deriving instance (Num (BackendKey b)) => Num (BackendKey (RawSqlite b))-deriving instance (Integral (BackendKey b)) => Integral (BackendKey (RawSqlite b))-deriving instance (PersistField (BackendKey b)) => PersistField (BackendKey (RawSqlite b))-deriving instance (PersistFieldSql (BackendKey b)) => PersistFieldSql (BackendKey (RawSqlite b))-deriving instance (Real (BackendKey b)) => Real (BackendKey (RawSqlite b))-deriving instance (Enum (BackendKey b)) => Enum (BackendKey (RawSqlite b))-deriving instance (Bounded (BackendKey b)) => Bounded (BackendKey (RawSqlite b))-deriving instance (ToJSON (BackendKey b)) => ToJSON (BackendKey (RawSqlite b))-deriving instance (FromJSON (BackendKey b)) => FromJSON (BackendKey (RawSqlite b)) #endif makeLenses ''RawSqlite
persistent-sqlite.cabal view
@@ -1,5 +1,5 @@ name: persistent-sqlite-version: 2.13.0.0+version: 2.13.0.2 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>