8ec690b..master · jrec

.github/workflows/ci.yaml+2

since splitsnapshots

unifiedsplit

@@ -13,3 +13,5 @@ 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.jsonnew file+11

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

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+5−4

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

1{

2+ "editor.formatOnType": true,

3+ "editor.formatOnSave": true,

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

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

3− "editor.formatOnType": true,

5+ "haskell.manageHLS": "PATH"

4− "editor.formatOnSave": true

5−}

6+}

CHANGELOG.md+4

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

1# Revision history for rec

2

3+## Unreleased

4+

5+- GHC 9.2 + Aeson 2.0 support

6+

3## 0.1.0.0 -- YYYY-mm-dd

7## 0.1.0.0 -- YYYY-mm-dd

4

8

5* First version. Released on an unsuspecting world.

9* 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-shell --pure --run "ghcid $* -W -c 'cabal new-repl test:jrec-test' -T \":main $*\""

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

default.nixdeleted−36

@@ -1,36 +0,0 @@

1−let

2− nixpkgsSrc = builtins.fetchTarball {

3− url = "https://github.com/nixos/nixpkgs/archive/76f2e271a2ef.tar.gz";

4− sha256 = "1r4da3kyghqq7vzya5yb295jpnha1fgp755bi6wda4fmhyaynnsp";

5− };

6− gitignoreSrc = builtins.fetchTarball {

7− url = "https://github.com/hercules-ci/gitignore/archive/c4662e6.tar.gz";

8− sha256 = "1npnx0h6bd0d7ql93ka7azhj40zgjp815fw2r6smg8ch9p7mzdlx";

9− };

10− inherit (import gitignoreSrc { inherit (pkgs); }) gitignoreSource;

11−in {

12− compiler ? "default",

13− pkgs ? import nixpkgsSrc {},

14−}:

15− let

16− haskellPackages =

17− if compiler == "default"

18− then pkgs.haskellPackages

19− else pkgs.haskell.packages.${compiler};

20− projectDrv =

21− haskellPackages.override {

22− overrides = self: super: with pkgs.haskell.lib; {

23− jrec = self.callCabal2nix "jrec" (gitignoreSource ./.) {};

24− # https://github.com/lspitzner/data-tree-print/pull/2

25− data-tree-print = doJailbreak super.data-tree-print;

26− };

27− };

28− projectShell =

29− projectDrv.shellFor {

30− packages = p: [ p.jrec ];

31− buildInputs = with projectDrv; [

32− cabal-install

33− ];

34− };

35− in

36− if pkgs.lib.inNixShell then projectShell else projectDrv.jrec

flake.lock+20−36

@@ -18,36 +18,36 @@

18 "type": "github"

19 }

20 },

21− "gitignore": {

21+ "nixpkgs": {

22− "inputs": {

23− "nixpkgs": "nixpkgs"

24− },

25 "locked": {

22 "locked": {

26− "lastModified": 1660459072,

23+ "lastModified": 1678594102,

27− "narHash": "sha256-8DFJjXG8zqoONA1vXtgeKXy68KdJL5UaXR8NtVMUbx8=",

24+ "narHash": "sha256-OHAHYiMWJFPNxuW/PcOMlSD2tvXnEYC1jxREBADHwwQ=",

28− "owner": "hercules-ci",

25+ "owner": "nixos",

29− "repo": "gitignore.nix",

26+ "repo": "nixpkgs",

30− "rev": "a20de23b925fd8264fd7fad6454652e142fd7f73",

27+ "rev": "796b4a3c1d903c4b9270cd2548fe46f524eeb886",

31 "type": "github"

28 "type": "github"

32 },

29 },

33 "original": {

30 "original": {

34− "owner": "hercules-ci",

31+ "owner": "nixos",

35− "repo": "gitignore.nix",

32+ "ref": "nixpkgs-unstable",

33+ "repo": "nixpkgs",

36 "type": "github"

34 "type": "github"

37 }

35 }

38 },

36 },

39− "nixpkgs": {

37+ "nixpkgs-ghc88": {

40 "locked": {

38 "locked": {

41− "lastModified": 1632846328,

39+ "lastModified": 1596466290,

42− "narHash": "sha256-sFi6YtlGK30TBB9o6CW7LG9mYHkgtKeWbSLAjjrNTX0=",

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

43− "owner": "NixOS",

41+ "owner": "nixos",

44 "repo": "nixpkgs",

42 "repo": "nixpkgs",

45− "rev": "2b71ddd869ad592510553d09fe89c9709fa26b2b",

43+ "rev": "76f2e271a2ef9de3734dcc9d366a42d6bfb18e82",

46 "type": "github"

44 "type": "github"

47 },

45 },

48 "original": {

46 "original": {

47+ "owner": "nixos",

48+ "ref": "76f2e271a2ef",

49− "id": "nixpkgs",

49+ "repo": "nixpkgs",

50− "type": "indirect"

50+ "type": "github"

51 }

52 },

53 "nixpkgs-lib": {

@@ -68,27 +68,11 @@

68 "type": "github"

69 }

70 },

71− "nixpkgs_2": {

72− "locked": {

73− "lastModified": 1678594102,

74− "narHash": "sha256-OHAHYiMWJFPNxuW/PcOMlSD2tvXnEYC1jxREBADHwwQ=",

75− "owner": "nixos",

76− "repo": "nixpkgs",

77− "rev": "796b4a3c1d903c4b9270cd2548fe46f524eeb886",

78− "type": "github"

79− },

80− "original": {

81− "owner": "nixos",

82− "ref": "nixpkgs-unstable",

83− "repo": "nixpkgs",

84− "type": "github"

85− }

86− },

87 "root": {

71 "root": {

88 "inputs": {

72 "inputs": {

89 "flake-parts": "flake-parts",

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

90− "gitignore": "gitignore",

74+ "nixpkgs": "nixpkgs",

91− "nixpkgs": "nixpkgs_2"

75+ "nixpkgs-ghc88": "nixpkgs-ghc88"

92 }

76 }

93 }

77 }

94 },

78 },

flake.nix+13−8

@@ -1,29 +1,34 @@

1{

2 inputs = {

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

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

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

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

5− gitignore.url = "github:hercules-ci/gitignore.nix";

6 };

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

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

8 flake-parts.lib.mkFlake { inherit inputs; } {

9 systems = nixpkgs.lib.systems.flakeExposed;

10 perSystem = { self', inputs', pkgs, system, ... }:

11 let

12− inherit (gitignore.lib) gitignoreSource;

13 overlay = self: super: {

12 overlay = self: super: {

14− jrec = self.callCabal2nix "jrec" (gitignoreSource ./.) { };

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

14+ };

15+ ghcVersions = {

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

17+ ghc92 = pkgs.haskellPackages.extend overlay;

15 };

18 };

16− haskellPackages' = pkgs.haskellPackages.extend overlay;

17 in

19 in

18 {

20 {

19− packages.default = haskellPackages'.jrec;

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

20− devShells.default = haskellPackages'.shellFor {

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

21 packages = p: [ p.jrec ];

23 packages = p: [ p.jrec ];

22− buildInputs = with haskellPackages'; [

24+ buildInputs = with ghcVersions.ghc92; [

23 cabal-install

25 cabal-install

26+ ghcid

24 haskell-language-server

27 haskell-language-server

25 ];

28 ];

26 };

29 };

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

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

27 };

32 };

28 };

33 };

29}

34}

shell.nixnew file+1

@@ -0,0 +1 @@

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

src/JRec/Internal.hs+13−6

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

46import qualified Optics.Lens as OL

47import Unsafe.Coerce

48import Prelude

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

49−import qualified Data.Aeson.Key as Key

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

51+#else

52+fromText :: a -> a

53+fromText = id

54+fromString :: String -> T.Text

55+fromString = T.pack

56+#endif

50

57

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

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

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

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

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

559

566

560instance ToJSON a => EncodeField a where

567instance ToJSON a => EncodeField a where

561 encodeField = pure . toJSON

568 encodeField = pure . toJSON

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

569+ encodeKV k v = fromText k .= v

563

570

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

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

565 encodeField = fmap toJSON

572 encodeField = fmap toJSON

566 encodeKV _ Nothing = mempty

573 encodeKV _ Nothing = mempty

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

574+ encodeKV k v = fromText k .= v

568

575

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

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

570recToValue options r =

577recToValue options r =

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

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

572

579

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

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

574recToEncoding options r =

581recToEncoding options r =

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

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

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

674

681

675instance FromJSON a => ParseField a where

682instance FromJSON a => ParseField a where

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

683+ parseField o k = o .: fromText k

677

684

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

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

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

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

680

687

681instance

688instance

682 ( KnownSymbol l,

689 ( KnownSymbol l,