如何显示Haskell中抛出的错误的回溯

import GHC.Stack

-- 定义一个可能会抛出异常的函数
divide :: Int -> Int -> Int
divide x y = x `div` y

-- 定义一个处理异常的函数，并显示回溯
handleError :: Either SomeException a -> IO ()
handleError (Left e) = do
  putStrLn "发生错误："
  print e
  putStrLn "回溯："
  print callStack
handleError (Right _) = putStrLn "操作成功"

main :: IO ()
main = do
  let result = try (evaluate (divide 10 0)) :: IO (Either SomeException Int)
  handleError result