From 2952ecc005466775c9ac70a702da1bbad17a28e5 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Tue, 27 Sep 2022 12:35:27 +0300 Subject: Add eq?, lt? --- src/Evaluator.hs | 1 - 1 file changed, 1 deletion(-) (limited to 'src/Evaluator.hs') diff --git a/src/Evaluator.hs b/src/Evaluator.hs index a0c6151..009f108 100644 --- a/src/Evaluator.hs +++ b/src/Evaluator.hs @@ -117,7 +117,6 @@ evaluateMatch env args = do ++ "- matching on expr: " ++ show actualExpr ++ "\n" ++ "- arguments: " ++ show rest) - (_, evaledActual) <- evaluate env actualExpr ret <- matchPairs (actualExpr, evaledActual) pairs return (env, ret) -- cgit v1.3