persistent-template 2.0.3.1 → 2.0.3.2

raw patch · 2 files changed

+6/−3 lines, 2 files

Files

• Database/Persist/TH.hs +5/−2
• persistent-template.cabal +1/−1

@@ -72,6 +72,7 @@ import Web.PathPieces (PathPiece, toPathPiece, fromPathPiece) import GHC.Generics (Generic) import qualified Data.Text.Encoding as TE+import Database.Persist.Sql (sqlIdName)  -- | Converts a quasi-quoted syntax into a list of entity definitions, to be -- used as input to the template haskell generation code (mkPersist).@@ -822,8 +823,10 @@     puk <- mkUniqueKeys t     fkc <- mapM (mkForeignKeysComposite mps t) $ entityForeigns t -    let primaryField = entityId t-    +    let primaryField = (entityId t)+            { fieldDB = sqlIdName t+            }+     fields <- mapM (mkField mps t) $ primaryField : entityFields t     toFieldNames <- mkToFieldNames $ entityUniques t 

@@ -1,5 +1,5 @@ name:            persistent-template-version:         2.0.3.1+version:         2.0.3.2 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>