define datatags

2024-02-07 23:45:38 -07:00
parent c6f9c615b4
commit bb2a07d2e9
2 changed files with 22 additions and 6 deletions
--- a/src/Core/Examples.hs
+++ b/src/Core/Examples.hs
@@ -207,8 +207,6 @@ namedConsCase :: Program'
 namedConsCase = [coreProg|
        {-# PackData Nil  0 0 #-}
        {-# PackData Cons 1 2 #-}
-        Nil = Pack{0 0};
-        Cons = Pack{1 2};
        foldr f z l = case l of
            { Nil       -> z
            ; Cons x xs -> f x (foldr f z xs)