persistent-template 1.1.3 → 1.1.3.1

raw patch · 2 files changed

+4/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

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

@@ -473,15 +473,15 @@         (NormalB $ lens' `AppE` getter `AppE` setter)         []       where+        emptyMatch = Match WildP (NormalB $ VarE 'error `AppE` LitE (StringL "Tried to use fieldLens on a Sum type")) []         getter = LamE             [ ConP 'Entity [WildP, VarP valName]             ] $ CaseE (VarE valName)-            [ Match (ConP (sumConstrName t f) [VarP xName]) (NormalB $ VarE xName) []+            $ Match (ConP (sumConstrName t f) [VarP xName]) (NormalB $ VarE xName) []              -- FIXME It would be nice if the types expressed that the Field is             -- a sum type and therefore could result in Maybe.-            , Match WildP (NormalB $ VarE 'error `AppE` LitE (StringL "Tried to use fieldLens on a Sum type")) []-            ]+            : if length (entityFields t) > 1 then [emptyMatch] else []         setter = LamE             [ ConP 'Entity [VarP keyName, WildP]             , VarP xName

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