From 32f6fe0291e289c88d29710e42da3e6aca47a3fa Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Sat, 26 Nov 2022 20:15:09 +0100 Subject: fix minor stuff --- app/Builtins.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'app/Builtins.hs') diff --git a/app/Builtins.hs b/app/Builtins.hs index 64838bb..555623c 100644 --- a/app/Builtins.hs +++ b/app/Builtins.hs @@ -110,8 +110,7 @@ retractall = do {- adding the builtins -} addOp op = modify $ \s -> s {ops = op : ops s} -addClause struct code = do - lift . outputStrLn $ "Adding " ++ show struct ++ " with code " ++ show code +addClause struct code = modify $ \s -> s {defs = M.alter (Just . maybe [code] (\hs -> code : hs)) struct $ defs s} -- cgit v1.2.3