Use deriving

2026-02-24 21:15:41 -08:00
parent 79ed4bf2c2
commit c15f22a180
10 changed files with 69 additions and 257 deletions
--- a/src/Lib/Elab.newt
+++ b/src/Lib/Elab.newt
@@ -100,9 +100,7 @@ instance Monoid UnifyResult where
  neutral = MkResult Nil

 data UnifyMode = UNormal | UPattern
-instance Show UnifyMode where
-  show UNormal = "UNormal"
-  show UPattern = "UPattern"
+derive Show UnifyMode

 check : Context -> Raw -> Val -> M Tm