persistent 2.0.1 → 2.0.1.1
raw patch · 4 files changed
+9/−5 lines, 4 filesdep ~base
Dependency ranges changed: base
Files
- Database/Persist/Class/PersistQuery.hs +1/−1
- Database/Persist/Class/PersistStore.hs +2/−1
- Database/Persist/Quasi.hs +5/−2
- persistent.cabal +1/−1
Database/Persist/Class/PersistQuery.hs view
@@ -18,7 +18,7 @@ import Database.Persist.Class.PersistEntity import Control.Monad.Trans.Class (lift) import Control.Monad.Trans.Resource (MonadResource, release)-import Data.Acquire (Acquire, mkAcquire, allocateAcquire, with)+import Data.Acquire (Acquire, allocateAcquire, with) class PersistStore backend => PersistQuery backend where -- | Update individual fields on any record matching the given criterion.
Database/Persist/Class/PersistStore.hs view
@@ -131,7 +131,8 @@ return -- | curry this to make a convenience function that loads an associated model--- > foreign = belongsTo foeignId+--+-- > foreign = belongsTo foerignId belongsTo :: ( PersistStore backend , PersistEntity ent1
Database/Persist/Quasi.hs view
@@ -397,8 +397,11 @@ | otherwise = getDBName ds t takeUniq _ tableName _ xs = error $ "invalid unique constraint on table[" ++ show tableName ++ "] expecting an uppercase constraint name xs=" ++ show xs -data UnboundForeignDef = UnboundForeignDef [Text] -- ^ fields in other entity- ForeignDef+data UnboundForeignDef = UnboundForeignDef+ { unboundFields :: [Text] -- ^ fields in other entity+ , unboundForeignDef :: ForeignDef+ }+ takeForeign :: PersistSettings -> Text -> [FieldDef]
persistent.cabal view
@@ -1,5 +1,5 @@ name: persistent-version: 2.0.1+version: 2.0.1.1 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>