more test cases, problem in Tree.newt

2024-10-07 20:59:50 -07:00
parent 38b09ac028
commit 75015f094a
9 changed files with 108 additions and 16 deletions
--- a/src/Lib/Types.idr
+++ b/src/Lib/Types.idr
@@ -102,13 +102,12 @@ HasFC Tm where
 covering
 Show Tm

-covering
+public export covering
 Show CaseAlt where
  show (CaseDefault tm) = "_ => \{show tm}"
  show (CaseCons nm args tm) = "\{nm} \{unwords args} => \{show tm}"

-- public export
-covering
+public export covering
 Show Tm where
  show (Bnd _ k) = "(Bnd \{show k})"
  show (Ref _ str _) = "(Ref \{show str})"