如何检测setNumCapabilities是否有效

Question

鉴于以下计划，使用GHC 7.6：

import Control.Concurrent
main = do
    setNumCapabilities 8
    putStrLn "After"

如果我使用ghc --make构建并运行我得到：

main: setNumCapabilities: not supported in the non-threaded RTS
After

关于非线程RTS的警告是因为我没有用-threaded构建。我想修改此代码，以便即使它不起作用也不会打印任何内容。例如，如果我能检测到RTS是非线程的，那么我可以避免使用setNumCapabilities。我不想在调用程序的stdout上添加一些内容。

Answer 1

之前检查rtsSupportsBoundThreads。

另见：How to detect if a program has been compiled using -threaded?