LitE -> Lit

2023-12-18 15:42:41 -07:00
parent 52b7723ea0
commit d954734660
1 changed files with 1 additions and 1 deletions
--- a/tst/Arith.hs
+++ b/tst/Arith.hs
@@ -76,7 +76,7 @@ toCore expr = Program
        ]
    where
        go :: ArithExpr -> Expr'
-        go (IntA n)    = LitE (IntL n)
+        go (IntA n)    = Lit (IntL n)
        go (NegateA e) = "negate#" :$ go e
        go (IdA e)     = "id" :$ go e
        go (a :+ b)    = f "+#" a b