haskell - 编译器开关打开/关闭调试消息？

Question

好的，这是一个简单的问题。我写了一个函数debug :: String -> IO () .我想进行设置，以便当我以一种方式编译我的程序时，这个函数会写入标准错误，如果我以另一种方式编译我的程序，这个函数就会变成无操作。是否有一些简单的编译时切换来做到这一点？还是我必须自己实现一些东西？

Answer 1

我认为不涉及 trace是解决这个问题的正确方法。

相反，您可以使用预处理器来禁用/启用调试消息。将以下内容放在单独的文件中:

{-# LANGUAGE CPP #-}
import System.IO

debug :: String -> IO ()
debug message =
#ifdef DEBUG
  hPutStrLn stderr message
#else
  return ()
#endif

{-# LANGUAGE CPP #-}行为当前文件启用 C 预处理器。然后您可以使用 ghc -DDEBUG 编译带有/不带调试的文件。或只是 ghc .