如何获取堆栈跟踪(haskell)中的行号？

import GHC.Stack (CallStack, SrcLoc(..), getCallStack, srcLocStartLine, srcLocEndLine)

-- 定义一个函数，返回当前的堆栈跟踪
getStackTrace :: IO CallStack
getStackTrace = getCallStack

-- 获取堆栈跟踪中的行号
getLineNumbers :: IO [Int]
getLineNumbers = do
  stack <- getStackTrace
  return $ map extractLineNum stack
  where
    extractLineNum :: SrcLoc -> Int
    extractLineNum loc = srcLocStartLine loc

-- 示例函数，用于测试获取堆栈跟踪中的行号
exampleFunction :: IO ()
exampleFunction = do
  lineNumbers <- getLineNumbers
  putStrLn $ "Line numbers in stack trace: " ++ show lineNumbers

-- 运行示例函数
main :: IO ()
main = exampleFunction