prairie 0.0.2.0 → 0.0.2.1

raw patch · 5 files changed

+14/−6 lines, 5 filesdep ~template-haskellPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: template-haskell

API changes (from Hackage documentation)

Files

• ChangeLog.md +6/−0
• prairie.cabal +2/−2
• src/Prairie/Class.hs +1/−1
• src/Prairie/Update.hs +2/−2
• test/Spec.hs +3/−1

@@ -1,5 +1,11 @@ # Changelog for prairie +## 0.0.2.1++- [#3](https://github.com/parsonsmatt/prairie/pull/6)+    - Bump upper bound for `TemplateHaskell`, supporting up to GHC 9.8+    - Fix string literals in docs that were quoted as module names+ ## 0.0.2.0  - [#2](https://github.com/parsonsmatt/prairie/pull/2)

@@ -1,7 +1,7 @@ cabal-version: 1.12  name:           prairie-version:        0.0.2.0+version:        0.0.2.1 description:    Please see the README on GitHub at <https://github.com/parsonsmatt/prairie#readme> homepage:       https://github.com/parsonsmatt/prairie#readme bug-reports:    https://github.com/parsonsmatt/prairie/issues@@ -35,7 +35,7 @@     , constraints     , containers     , lens-    , template-haskell  >= 2.15 && < 2.20+    , template-haskell  >= 2.15 && < 2.22     , text    other-modules:

@@ -87,7 +87,7 @@     --     -- @     -- tabulateRecordA $ \\field -> case field of-    --     UserName -> Just "Matt"+    --     UserName -> Just \"Matt\"     --     UserAge -> Nothing     --     -- tabulateRecordA $ \\field -> case field of

@@ -82,9 +82,9 @@ -- | Run an 'Update' against the record it is for. -- -- @--- >>> let user = User { name = "Bob", age = 30 }+-- >>> let user = User { name = \"Bob\", age = 30 } -- >>> updateSingleField (SetField UserName "Alice") user--- User { name = "Alice", age = 30 }+-- User { name = \"Alice\", age = 30 } -- @ -- -- @since 0.0.1.0

@@ -1,4 +1,5 @@ {-# language PolyKinds, LambdaCase, TypeApplications, RankNTypes, StandaloneDeriving, ConstraintKinds, TemplateHaskell, DataKinds, OverloadedStrings, FlexibleInstances, MultiParamTypeClasses, UndecidableInstances, TypeFamilies, GADTs #-}+ {-# options_ghc -Wall #-} module Main where @@ -7,6 +8,7 @@ import Data.Aeson import Control.Monad import Control.Lens+import Data.Kind (Type)  data User = User { name :: String, age :: Int }   deriving Eq@@ -42,7 +44,7 @@     polyLens = \case         TX -> lens x (\o n -> o { x = n }) :: Lens (T a) (T b) a b -type family FieldLens (a :: *) (p :: *) (f :: * -> *) where+type family FieldLens (a :: Type) (p :: Type) (f :: Type -> Type) where     FieldLens (Field (t x) x) y f = LensLike f (t x) (t y) x y     FieldLens (Field (t x) y) y f = LensLike f (t x) (t x) y y