From b87d5b45110cd7efe7109dd6d4e9c19ef28522aa Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Thu, 6 Nov 2025 08:35:36 +0100 Subject: evaluate terms when defining them --- lambda-calcul/haskell/test/Minilang/REPL/NetSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lambda-calcul/haskell/test/Minilang/REPL') diff --git a/lambda-calcul/haskell/test/Minilang/REPL/NetSpec.hs b/lambda-calcul/haskell/test/Minilang/REPL/NetSpec.hs index 7f77eeb..6a2b1ab 100644 --- a/lambda-calcul/haskell/test/Minilang/REPL/NetSpec.hs +++ b/lambda-calcul/haskell/test/Minilang/REPL/NetSpec.hs @@ -71,7 +71,7 @@ spec = around withServer $ let inp = [Com (Set (SelectLanguage Typed)), In "((lam (x) x) y)"] expectedOutput = [ Right (Msg "Language set to Typed"), - Right $ Evaluated (AST.Sym "y") (Var "y") (TyVar "b") + Right $ Evaluated (AST.Sym "y") (Var "y") (TyVar "a") ] res <- runTestClient serverPort ".newenv1" inp -- cgit v1.3.1