Skip to content

Commit

Permalink
Update brat/Brat/Syntax/Value.hs
Browse files Browse the repository at this point in the history
Co-authored-by: Mark Koch <[email protected]>
  • Loading branch information
croyzor and mark-koch committed Jan 14, 2025
1 parent eb68510 commit 0752c7c
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion brat/Brat/Syntax/Value.hs
Original file line number Diff line number Diff line change
Expand Up @@ -160,7 +160,7 @@ data Val :: N -> Type where
VApp :: VVar n -> Bwd (Val n) -> Val n

-- Define a naive version of equality, which only says whether the data
-- structures are on-the-node equal
-- structures are on-the-nose equal
instance Eq (Val n) where
VNum a == VNum b = a == b
(VCon c xs) == (VCon d ys) = c == d && xs == ys
Expand Down

0 comments on commit 0752c7c

Please sign in to comment.