master..44f2459 · jrec

.github/workflows/ci.yaml−2

since splitsnapshots

unifiedsplit

@@ -13,5 +13,3 @@ jobs:

13 experimental-features = nix-command flakes

14 - name: Build and test 🔧

15 run: nix build -j 4 -L

16− - name: Build and test (GHC 8.8) 🔧

17− run: nix build -j 4 -L .#jrec-ghc88

.vscode/extensions.jsondeleted−11

@@ -1,11 +0,0 @@

1−{

2− // See https://go.microsoft.com/fwlink/?LinkId=827846

3− // for the documentation about the extensions.json format

4− "recommendations": [

5− "haskell.haskell",

6− "arrterian.nix-env-selector",

7− "bbenoist.nix",

8− "jnoortheen.nix-ide",

9− "tamasfe.even-better-toml"

10− ]

11−}

.vscode/settings.json+4−5

@@ -1,6 +1,5 @@

1{

2− "editor.formatOnType": true,

3− "editor.formatOnSave": true,

4− "nixEnvSelector.nixFile": "${workspaceRoot}/shell.nix",

2+ "nixEnvSelector.nixShellConfig": "${workspaceRoot}/default.nix",

5− "haskell.manageHLS": "PATH"

3+ "editor.formatOnType": true,

4+ "editor.formatOnSave": true

6−}

5+}

CHANGELOG.md−4

@@ -1,9 +1,5 @@

1# Revision history for rec

2

3−## Unreleased

4−

5−- GHC 9.2 + Aeson 2.0 support

6−

7## 0.1.0.0 -- YYYY-mm-dd

3## 0.1.0.0 -- YYYY-mm-dd

8

4

9* First version. Released on an unsuspecting world.

5* First version. Released on an unsuspecting world.

bin/test+1−1

@@ -2,4 +2,4 @@

2set -xe

3

4# NOTE: ghcid should be run with -W to allow warnings from should-not-typecheck

5−nix develop -c sh -c "ghcid $* -W -c 'cabal new-repl test:jrec-test' -T \":main $*\""

5+nix-shell --pure --run "ghcid $* -W -c 'cabal new-repl test:jrec-test' -T \":main $*\""

flake.lock+1−18

@@ -34,22 +34,6 @@

34 "type": "github"

35 }

36 },

37− "nixpkgs-ghc88": {

38− "locked": {

39− "lastModified": 1596466290,

40− "narHash": "sha256-V1vrlYfVEdW4iauUc58LCtorSxLLF+X/PhjD5+dQjeQ=",

41− "owner": "nixos",

42− "repo": "nixpkgs",

43− "rev": "76f2e271a2ef9de3734dcc9d366a42d6bfb18e82",

44− "type": "github"

45− },

46− "original": {

47− "owner": "nixos",

48− "ref": "76f2e271a2ef",

49− "repo": "nixpkgs",

50− "type": "github"

51− }

52− },

53 "nixpkgs-lib": {

37 "nixpkgs-lib": {

54 "locked": {

38 "locked": {

55 "dir": "lib",

39 "dir": "lib",

@@ -71,8 +55,7 @@

71 "root": {

55 "root": {

72 "inputs": {

56 "inputs": {

73 "flake-parts": "flake-parts",

57 "flake-parts": "flake-parts",

74− "nixpkgs": "nixpkgs",

58+ "nixpkgs": "nixpkgs"

75− "nixpkgs-ghc88": "nixpkgs-ghc88"

76 }

59 }

77 }

60 }

78 },

61 },

flake.nix+4−11

@@ -1,7 +1,6 @@

1{

2 inputs = {

3 nixpkgs.url = "github:nixos/nixpkgs/nixpkgs-unstable";

4− nixpkgs-ghc88.url = "github:nixos/nixpkgs/76f2e271a2ef";

5 flake-parts.url = "github:hercules-ci/flake-parts";

4 flake-parts.url = "github:hercules-ci/flake-parts";

6 };

5 };

7 outputs = inputs@{ nixpkgs, flake-parts, ... }:

6 outputs = inputs@{ nixpkgs, flake-parts, ... }:

@@ -12,23 +11,17 @@

12 overlay = self: super: {

11 overlay = self: super: {

13 jrec = self.callCabal2nix "jrec" ./. { };

12 jrec = self.callCabal2nix "jrec" ./. { };

14 };

13 };

15− ghcVersions = {

16− ghc88 = inputs.nixpkgs-ghc88.legacyPackages.${system}.haskellPackages.extend overlay;

17− ghc92 = pkgs.haskellPackages.extend overlay;

14+ haskellPackages' = pkgs.haskellPackages.extend overlay;

18− };

19 in

15 in

20 {

16 {

21− packages.default = ghcVersions.ghc92.jrec;

17+ packages.default = haskellPackages'.jrec;

22− devShells.default = ghcVersions.ghc92.shellFor {

18+ devShells.default = haskellPackages'.shellFor {

23 packages = p: [ p.jrec ];

19 packages = p: [ p.jrec ];

24− buildInputs = with ghcVersions.ghc92; [

20+ buildInputs = with haskellPackages'; [

25 cabal-install

21 cabal-install

26− ghcid

27 haskell-language-server

22 haskell-language-server

28 ];

23 ];

29 };

24 };

30− # Expose jrec built with GHC 8.8 so it can be tested in CI.

31− packages.jrec-ghc88 = ghcVersions.ghc88.jrec;

32 };

25 };

33 };

26 };

34}

27}

shell.nixdeleted−1

@@ -1 +0,0 @@

1−(builtins.getFlake ("git+file://" + toString ./.)).devShells.${builtins.currentSystem}.default

src/JRec/Internal.hs+6−13

@@ -46,14 +46,7 @@ import GHC.TypeLits

46import qualified Optics.Lens as OL

47import Unsafe.Coerce

48import Prelude

49−#if MIN_VERSION_aeson(2,0,0)

50−import Data.Aeson.Key (fromText, fromString)

49+import qualified Data.Aeson.Key as Key

51−#else

52−fromText :: a -> a

53−fromText = id

54−fromString :: String -> T.Text

55−fromString = T.pack

56−#endif

57

50

58-- | Field named @l@ labels value of type @t@ adapted from the awesome /labels/ package.

51-- | Field named @l@ labels value of type @t@ adapted from the awesome /labels/ package.

59-- Example: @(#name := \"Chris\") :: (\"name\" := String)@

52-- Example: @(#name := \"Chris\") :: (\"name\" := String)@

@@ -566,16 +559,16 @@ class ToJSON a => EncodeField a where

566

559

567instance ToJSON a => EncodeField a where

560instance ToJSON a => EncodeField a where

568 encodeField = pure . toJSON

561 encodeField = pure . toJSON

569− encodeKV k v = fromText k .= v

562+ encodeKV k v = Key.fromText k .= v

570

563

571instance {-# OVERLAPS #-} ToJSON a => EncodeField (Maybe a) where

564instance {-# OVERLAPS #-} ToJSON a => EncodeField (Maybe a) where

572 encodeField = fmap toJSON

565 encodeField = fmap toJSON

573 encodeKV _ Nothing = mempty

566 encodeKV _ Nothing = mempty

574− encodeKV k v = fromText k .= v

567+ encodeKV k v = Key.fromText k .= v

575

568

576recToValue :: forall lts. (RecApply lts lts EncodeField) => JSONOptions -> Rec lts -> Value

569recToValue :: forall lts. (RecApply lts lts EncodeField) => JSONOptions -> Rec lts -> Value

577recToValue options r =

570recToValue options r =

578− object $ catMaybes $ reflectRec @EncodeField Proxy (\k v -> (fromString (fieldTransform options k),) <$> encodeField v) r

571+ object $ catMaybes $ reflectRec @EncodeField Proxy (\k v -> (Key.fromString (fieldTransform options k),) <$> encodeField v) r

579

572

580recToEncoding :: forall lts. (RecApply lts lts EncodeField) => JSONOptions -> Rec lts -> Encoding

573recToEncoding :: forall lts. (RecApply lts lts EncodeField) => JSONOptions -> Rec lts -> Encoding

581recToEncoding options r =

574recToEncoding options r =

@@ -680,10 +673,10 @@ class FromJSON a => ParseField a where

680 parseField :: Object -> T.Text -> Parser a

673 parseField :: Object -> T.Text -> Parser a

681

674

682instance FromJSON a => ParseField a where

675instance FromJSON a => ParseField a where

683− parseField o k = o .: fromText k

676+ parseField o k = o .: Key.fromText k

684

677

685instance {-# OVERLAPS #-} FromJSON a => ParseField (Maybe a) where

678instance {-# OVERLAPS #-} FromJSON a => ParseField (Maybe a) where

686− parseField o k = o .:? fromText k

679+ parseField o k = o .:? Key.fromText k

687

680

688instance

681instance

689 ( KnownSymbol l,

682 ( KnownSymbol l,