Skip to content

Add deriveEq for Plinth similar to deriving stock Eq #7433

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
Unisay merged 17 commits into from
Feb 20, 2026
+6,812 −7,727
Merged

Add deriveEq for Plinth similar to deriving stock Eq #7433

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
17 commits
Select commit Hold shift + click to select a range
840b0f0
feat(plutus-tx): add deriveEq Template Haskell function
Unisay Feb 9, 2026
0a41dd9
test(plutus-tx): add unit and golden tests for deriveEq
Unisay Feb 9, 2026
4779c85
refactor(plutus-tx): replace manual Eq instances with deriveEq
Unisay Feb 9, 2026
dd111ae
refactor(plutus-ledger-api): replace manual Eq instances with deriveEq
Unisay Feb 9, 2026
5b79906
test: add golden tests for deriveEq generated code
Unisay Feb 9, 2026
55c7864
test: regenerate golden files affected by deriveEq
Unisay Feb 9, 2026
79f9989
docs: add changelog entries for deriveEq feature
Unisay Feb 9, 2026
18ceea2
test: update AST size golden for Rational.compare after deriveEq changes
Unisay Feb 9, 2026
09cd4d6
test: make deriveEq golden tests deterministic for asData types
Unisay Feb 9, 2026
dea0a18
test: regenerate golden files for cardano-constitution and plutus-ben…
Unisay Feb 9, 2026
a01f9eb
fix: disable plutus-ledger-api-test on Windows (needs diff)
Unisay Feb 9, 2026
49cd7ab
refactor: replace TH.pprint with custom width-aware pretty-printer
Unisay Feb 12, 2026
e7ceaf7
style: remove commented-out deriveEq calls for AssocMap types
Unisay Feb 13, 2026
8056b41
style: add Haddock markers to MintValue Eq instance comments
Unisay Feb 13, 2026
e8155d5
fix: avoid incomplete record updates in Eq tests for GHC 9.12
Unisay Feb 13, 2026
98f016a
test: regenerate GHC 9.12 Enum golden files for new pretty-printer
Unisay Feb 16, 2026
f1817ba
test: regenerate GHC 9.12 IsData golden files for new pretty-printer
Unisay Feb 16, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion ...constitution/test/Cardano/Constitution/Validator/Data/GoldenTests/sorted.golden.cbor.size
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1 +1 @@
2045
2042
2 changes: 1 addition & 1 deletion ...stitution/test/Cardano/Constitution/Validator/Data/GoldenTests/sorted.golden.large.budget
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1 +1 @@
ExBudget {exBudgetCPU = ExCPU 406467137, exBudgetMemory = ExMemory 2070956}
ExBudget {exBudgetCPU = ExCPU 406371137, exBudgetMemory = ExMemory 2070356}
33 changes: 18 additions & 15 deletions cardano-constitution/test/Cardano/Constitution/Validator/Data/GoldenTests/sorted.golden.pir
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -247,37 +247,40 @@ program
Rational_match
ds
{bool}
(\(n : integer) (d : integer) ->
(\(l1l : integer) (l2l : integer) ->
Rational_match
ds
{bool}
(\(n' : integer) (d' : integer) ->
(\(r1r : integer) (r2r : integer) ->
case
(all dead. bool)
(equalsInteger n n')
(equalsInteger l1l r1r)
[ (/\dead -> False)
, (/\dead -> equalsInteger d d') ]
, (/\dead -> equalsInteger l2l r2r) ]
{all dead. dead})))
(\(ds : Rational) (ds : Rational) ->
(\(eta : Rational) (eta : Rational) ->
Rational_match
ds
eta
{Ordering}
(\(n : integer) (d : integer) ->
(\(ipv : integer) (ipv : integer) ->
Rational_match
ds
eta
{Ordering}
(\(n' : integer) (d' : integer) ->
let
!x : integer = multiplyInteger n d'
!y : integer = multiplyInteger n' d
in
(\(ipv : integer) (ipv : integer) ->
case
(all dead. Ordering)
(equalsInteger x y)
(case
(all dead. bool)
(equalsInteger ipv ipv)
[ (/\dead -> False)
, (/\dead -> equalsInteger ipv ipv) ]
{all dead. dead})
[ (/\dead ->
case
(all dead. Ordering)
(lessThanEqualsInteger x y)
(lessThanEqualsInteger
(multiplyInteger ipv ipv)
(multiplyInteger ipv ipv))
[(/\dead -> GT), (/\dead -> LT)]
{all dead. dead})
, (/\dead -> EQ) ]
Expand Down
2 changes: 1 addition & 1 deletion ...stitution/test/Cardano/Constitution/Validator/Data/GoldenTests/sorted.golden.small.budget
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1 +1 @@
ExBudget {exBudgetCPU = ExCPU 60269664, exBudgetMemory = ExMemory 276518}
ExBudget {exBudgetCPU = ExCPU 60173664, exBudgetMemory = ExMemory 275918}
1,650 changes: 823 additions & 827 deletions cardano-constitution/test/Cardano/Constitution/Validator/Data/GoldenTests/sorted.golden.uplc
View file
Open in desktop

Large diffs are not rendered by default.

2 changes: 1 addition & 1 deletion ...nstitution/test/Cardano/Constitution/Validator/Data/GoldenTests/unsorted.golden.cbor.size
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1 +1 @@
2036
2044
2 changes: 1 addition & 1 deletion ...itution/test/Cardano/Constitution/Validator/Data/GoldenTests/unsorted.golden.large.budget
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1 +1 @@
ExBudget {exBudgetCPU = ExCPU 568831992, exBudgetMemory = ExMemory 2943891}
ExBudget {exBudgetCPU = ExCPU 568927992, exBudgetMemory = ExMemory 2944491}
33 changes: 18 additions & 15 deletions ...ano-constitution/test/Cardano/Constitution/Validator/Data/GoldenTests/unsorted.golden.pir
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -245,37 +245,40 @@ program
Rational_match
ds
{bool}
(\(n : integer) (d : integer) ->
(\(l1l : integer) (l2l : integer) ->
Rational_match
ds
{bool}
(\(n' : integer) (d' : integer) ->
(\(r1r : integer) (r2r : integer) ->
case
(all dead. bool)
(equalsInteger n n')
(equalsInteger l1l r1r)
[ (/\dead -> False)
, (/\dead -> equalsInteger d d') ]
, (/\dead -> equalsInteger l2l r2r) ]
{all dead. dead})))
(\(ds : Rational) (ds : Rational) ->
(\(eta : Rational) (eta : Rational) ->
Rational_match
ds
eta
{Ordering}
(\(n : integer) (d : integer) ->
(\(ipv : integer) (ipv : integer) ->
Rational_match
ds
eta
{Ordering}
(\(n' : integer) (d' : integer) ->
let
!x : integer = multiplyInteger n d'
!y : integer = multiplyInteger n' d
in
(\(ipv : integer) (ipv : integer) ->
case
(all dead. Ordering)
(equalsInteger x y)
(case
(all dead. bool)
(equalsInteger ipv ipv)
[ (/\dead -> False)
, (/\dead -> equalsInteger ipv ipv) ]
{all dead. dead})
[ (/\dead ->
case
(all dead. Ordering)
(lessThanEqualsInteger x y)
(lessThanEqualsInteger
(multiplyInteger ipv ipv)
(multiplyInteger ipv ipv))
[(/\dead -> GT), (/\dead -> LT)]
{all dead. dead})
, (/\dead -> EQ) ]
Expand Down
2 changes: 1 addition & 1 deletion ...itution/test/Cardano/Constitution/Validator/Data/GoldenTests/unsorted.golden.small.budget
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1 +1 @@
ExBudget {exBudgetCPU = ExCPU 58587921, exBudgetMemory = ExMemory 267119}
ExBudget {exBudgetCPU = ExCPU 58683921, exBudgetMemory = ExMemory 267719}
Loading