tighten up generated code

2024-09-07 11:26:11 -07:00
parent 26ed1355f5
commit 796d93d7d9
2 changed files with 9 additions and 5 deletions
--- a/newt/testcase.newt
+++ b/newt/testcase.newt
@@ -43,9 +43,6 @@ length = \ v => case v of
 data Unit : U where
  MkUnit : Unit

-foo : Vect (S Z) Unit
-foo = Cons MkUnit Nil
-
 -- This should fail (and does!)
 -- bar : Vect (S Z) Unit
 -- bar = (Cons MkUnit (Cons MkUnit Nil))