persistent-template 2.0.0 → 2.0.0.1
raw patch · 2 files changed
+2/−2 lines, 2 files
Files
- Database/Persist/TH.hs +1/−1
- persistent-template.cabal +1/−1
Database/Persist/TH.hs view
@@ -724,7 +724,7 @@ keyFieldName t fd = mkName $ unpack $ lowerFirst (keyText t) `mappend` (unDBName $ fieldDB fd) mkKeyToValues :: MkPersistSettings -> EntityDef -> Q Dec-mkKeyToValues mps t = do+mkKeyToValues _mps t = do (p, e) <- case entityPrimary t of Nothing -> ([],) <$> [|backendKeyToValues . $(return $ VarE $ unKeyName t)|]
persistent-template.cabal view
@@ -1,5 +1,5 @@ name: persistent-template-version: 2.0.0+version: 2.0.0.1 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>