haskell - 如何在堆栈跟踪（haskell）中获取行号？

Question

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

标签： haskellghc

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