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

Question

我已经尝试了我能找到的几乎所有远程相关的命令行标志，虽然我能够获得堆栈跟踪，但没有什么能只给我行号。我是不是忽略了什么？

Answer 1

HasCallStack是一种方法：

{-# LANGUAGE FlexibleContexts #-}
import GHC.Stack
import GHC.Stack.Types
main :: HasCallStack => IO ()
main =  putStrLn (((PushCallStack _ loc _) -> show (srcLocStartLine loc)) callStack)

% ./main
7