调试haskell:在每次调用时显示函数的名称

时间:2013-09-03 15:38:08

标签: haskell

是否有工具可以自动“标记”某些功能,以便我可以获得“调用堆栈”的近似值。

实际上,我希望通过编写fct = Debug.trace "fct" $ ...来获得类似于您所获得的行为,而无需在每个函数之前添加它。

我知道分析与-fprof-auto类似,但我需要在应用程序运行时显示它。

有一段时间,我有无限循环,这个显示器可以立即显示哪些功能有问题。使用hlist和breakpoints并不是很有用,因为你必须知道循环中某个函数的名称。

1 个答案:

答案 0 :(得分:12)

这是令人难以置信的丑陋;-),它只给你行号而不是函数名,但我很惊讶地发现它有效,所以我想我会分享它。它仍然比没有好。您可以使用C预处理器,就像在旧C天中一样:

{-# LANGUAGE CPP #-}

#define traceLoc trace (__FILE__ ++":"++ show __LINE__)

import Debug.Trace

f 0 = traceLoc $ 1
f n = traceLoc $ g (n-1)
g 0 = traceLoc $ 2
g n = traceLoc $ 2 * f (n-1)    

现在,

*Main> f 3
Test.hs:16
Test.hs:18
Test.hs:16
Test.hs:17
4