Eq1

2024-02-26 14:58:17 -07:00
parent 2daf24acac
commit e6a5665d4a
1 changed files with 4 additions and 0 deletions
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -552,3 +552,7 @@ instance (Eq b) => Eq1 (BindingF b) where
        ka == kb && va `eq` vb
      where eq = liftEqExpr f

+deriveEq1 ''ExprF
+
+deriving instance (Eq b, Eq a) => Eq (ExprF b a)
+