如何检测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之前.

另请参阅:如何使用-threaded检测程序是否已编译？