From 88fae8c2914b805a733b71de58ab672124e6069c Mon Sep 17 00:00:00 2001
From: Tom Smeding <t.j.smeding@uu.nl>
Date: Mon, 27 Jan 2025 15:08:02 +0100
Subject: Add ext field to remaining AST constructors
---
src/Language/AST.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'src/Language/AST.hs')
diff --git a/src/Language/AST.hs b/src/Language/AST.hs
index 8c91d59..022e797 100644
--- a/src/Language/AST.hs
+++ b/src/Language/AST.hs
@@ -205,7 +205,7 @@ fromNamedExpr val = \case
(fromNamedExpr (NTop `NPush` nr1 `NPush` nr2) c)
(go e1) (go e2)
- NEError t s -> EError t s
+ NEError t s -> EError ext t s
NEUnnamed e args -> injectWrapLet (weakenExpr (wRaiseAbove args (envFromNEnv val)) e) args
where
--
cgit v1.2.3-70-g09d2