Haskell 如何检测setNumCapabilities是否有效

根据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上添加内容。

请先检查

---

另请参见：

我很高兴同意这确实是一个副本。