Change a use of traceM to putStrLn

This commit is contained in:
John Wiegley 2018-04-19 12:47:24 -07:00
parent 8fc1b831f9
commit b8af0ce22b

View file

@ -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