From 9701121d308eae855b17cee2d2555a65f50a1784 Mon Sep 17 00:00:00 2001 From: mhmdanas Date: Sun, 28 May 2023 13:24:42 +0100 Subject: [PATCH] Minor cleanup --- src/Insect/Interpreter.purs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/src/Insect/Interpreter.purs b/src/Insect/Interpreter.purs index e919837..d7a4fa6 100644 --- a/src/Insect/Interpreter.purs +++ b/src/Insect/Interpreter.purs @@ -297,15 +297,13 @@ runInsect env (FunctionAssignment name argNames expr) = insertArg map (Tuple argName val) = insert argName (StoredValue UserDefined val) map functionEnv = env' { values = foldl insertArg env'.values args - , functions = delete name env'.functions - } + , functions = delete name env'.functions + } runInsect env (PrettyPrintFunction name) = - { msg: message, - newEnv: env - } + { msg, newEnv: env } where - message = + msg = case lookup name env.functions of Just (StoredFunction _ _ (BuiltinFunction args)) → Message Info [ F.optional (F.text " "),