From 05fcc94a561335a6502fc98c3737a7e851d1285a Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Wed, 7 Dec 2022 14:33:07 +0200
Subject: Fix function body let issue

---
 test/TestUtils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/TestUtils.hs b/test/TestUtils.hs
index 672f801..86b3db5 100644
--- a/test/TestUtils.hs
+++ b/test/TestUtils.hs
@@ -36,7 +36,7 @@ expectErrorL env lc =
             Right (val, _) -> error $ "unexpected success: " ++ show val
 
 ast :: ASTNode -> AST
-ast node = AST { astNode = node }
+ast node = AST { an = node }
 
 astInteger a = ast $ ASTInteger a
 astDouble a = ast $ ASTDouble a
-- 
cgit v1.3