Change a use of traceM to putStrLn
This commit is contained in:
parent
8fc1b831f9
commit
b8af0ce22b
|
@ -215,9 +215,9 @@ tracingEvalExpr eval mpath expr = do
|
|||
local succ $ do
|
||||
action <- k v
|
||||
return $ withExprContext (stripFlags v) $ do
|
||||
traceM $ "eval: " ++ replicate depth ' '
|
||||
liftIO $ putStrLn $ "eval: " ++ replicate depth ' '
|
||||
++ show (void (unFix (stripAnnotation (stripFlags v))))
|
||||
liftIO $ writeIORef b True
|
||||
res <- action
|
||||
traceM $ "eval: " ++ replicate depth ' ' ++ "."
|
||||
liftIO $ putStrLn $ "eval: " ++ replicate depth ' ' ++ "."
|
||||
return res
|
||||
|
|
Loading…
Reference in a new issue