diff options
Diffstat (limited to 'app/Builtins.hs')
| -rw-r--r-- | app/Builtins.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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} |