diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-10 22:10:01 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-10 22:10:01 +0100 |
| commit | acab64cc0f21c0ee9fc5b9b08b60e08997818222 (patch) | |
| tree | 28c0c642050c57651a4495647c79f640f0446233 /test/Language.hs | |
| parent | 95d1f3cca8696fea69956b260e8b5d16e9ab3ee3 (diff) | |
| download | micro-lang-hs-acab64cc0f21c0ee9fc5b9b08b60e08997818222.tar.gz micro-lang-hs-acab64cc0f21c0ee9fc5b9b08b60e08997818222.zip | |
Preparing constant folding
Diffstat (limited to 'test/Language.hs')
| -rw-r--r-- | test/Language.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Language.hs b/test/Language.hs index 6bedc68..83736b2 100644 --- a/test/Language.hs +++ b/test/Language.hs @@ -23,7 +23,7 @@ expectError input etyp = do Left e -> assertFailure $ show e Right ast -> do res <- return $ compile ast - case crExit res of + case res of Left e -> case (find (\(E.Error t _ _) -> t == etyp) e) of Just _ -> return () Nothing -> assertFailure $ "expected " ++ show etyp ++ " didn't happen, got instead:\n" ++ unlines (map (\(E.Error t _ _) -> show t) e) |