persistent-template 1.0.0 → 1.0.0.1
raw patch · 2 files changed
+7/−1 lines, 2 files
Files
- Database/Persist/TH.hs +6/−0
- persistent-template.cabal +1/−1
Database/Persist/TH.hs view
@@ -135,8 +135,14 @@ DataD [] nameG [KindedTV backend monadTransKind] constrs $ map (mkName . unpack) $ entityDerives t where+#if MIN_VERSION_template_haskell(2,8,0)+ arrowK x y = ArrowT `AppT` x `AppT` y+ monadKind = StarT `arrowK` StarT+ monadTransKind = monadKind `arrowK` monadKind+#else monadKind = StarK `ArrowK` StarK monadTransKind = monadKind `ArrowK` monadKind+#endif mkCol x (FieldDef n _ ty as) = (mkName $ unpack $ recName x $ unHaskellName n, NotStrict,
persistent-template.cabal view
@@ -1,5 +1,5 @@ name: persistent-template-version: 1.0.0+version: 1.0.0.1 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>