如何使用putStrLn进行跟踪(Haskell)

import Debug.Trace

-- 定义一个跟踪函数
traceFunction :: String -> String -> String
traceFunction functionName input =
  let traceMessage = functionName ++ " called with input: " ++ input
  in trace traceMessage input

-- 示例函数
exampleFunction :: String -> String
exampleFunction input =
  let result = input ++ " World"
  in traceFunction "exampleFunction" result

main :: IO ()
main = do
  putStrLn "Starting program..."
  putStrLn $ exampleFunction "Hello"
  putStrLn "Ending program..."

Starting program...
exampleFunction called with input: Hello
Hello World
Ending program...