From 808f960c6aa800b0d3dcde897959a8e26303ef7d Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sat, 10 Sep 2022 19:20:11 +0100
Subject: Better interface

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

(limited to 'test')

diff --git a/test/Language.hs b/test/Language.hs
index 9f47008..95d5e75 100644
--- a/test/Language.hs
+++ b/test/Language.hs
@@ -24,7 +24,7 @@ expectError input etyp = do
   case r of
     Left e -> assertFailure $ show e
     Right ast -> do
-      res <- return $ evalState (compileAll ast) startState
+      res <- return $ compile ast
       case crExit res of
         Left e -> case (find (\(E.Error t _ _) -> t == etyp) e) of
           Just _ -> return ()
-- 
cgit v1.2.3