Fix export of keyAndEntityFieldsDatabase (#1579)

Author: MaxGabriel

persistent/ChangeLog.md

@@ -1,5 +1,10 @@
 # Changelog for persistent
 
+# 2.15.1.0
+
+* [#1519](https://github.com/yesodweb/persistent/pull/1519/files/9865a295f4545d30e55aacb6efc25f27f758e8ad#diff-5af2883367baae8f7f266df6a89fc2d1defb7572d94ed069e05c8135a883bc45)
+    * Add `keyAndEntityFieldsDatabase`. This was intended to be added in 2.14.7.0 but was not properly re-exported.
+
 # 2.15.0.0
 
 * [#1569](https://github.com/yesodweb/persistent/pull/1569)

persistent/Database/Persist/EntityDef.hs

@@ -24,6 +24,7 @@ module Database.Persist.EntityDef
     , entityPrimary
     , entitiesPrimary
     , keyAndEntityFields
+    , keyAndEntityFieldsDatabase
      -- * Setters
     , setEntityId
     , setEntityIdDef

persistent/Database/Persist/EntityDef/Internal.hs

@@ -11,6 +11,7 @@ module Database.Persist.EntityDef.Internal
     , entityPrimary
     , entitiesPrimary
     , keyAndEntityFields
+    , keyAndEntityFieldsDatabase
     , toEmbedEntityDef
     , EntityIdDef(..)
     ) where

persistent/Database/Persist/Types.hs

@@ -75,6 +75,7 @@ import Database.Persist.Types.Base
        , WhyNullable(..)
        , fieldAttrsContainsNullable
        , keyAndEntityFields
+       , keyAndEntityFieldsDatabase
        , noCascade
        , parseFieldAttrs
        )

persistent/Database/Persist/Types/Base.hs

@@ -223,7 +223,7 @@ keyAndEntityFields ent =
 --
 -- For fields on the Haskell type use 'keyAndEntityFieldsDatabase'
 --
--- @since 2.14.6.0
+-- @since 2.15.1.0
 keyAndEntityFieldsDatabase :: EntityDef -> NonEmpty FieldDef
 keyAndEntityFieldsDatabase ent =
     keyWithFields (entityId ent) fields