HaskellはforkIOの後にThreadIDを使ってスレッド状態を問い合わせる方法はありますか？私が探しています何

Question

はタイプのシンプルな機能である：

alive :: ThreadID -> IO Bool 

Answer 1

これは私の知る限りでは、標準baseライブラリでは不可能ですが、スレッドの状態を取得するためにGHC特定のAPIを使用することができます。

import GHC.Conc 

alive :: ThreadID -> IO Bool 
alive = fmap (== ThreadRunning) . threadStatus 

Answer 2

異なる定義が、スレッドがブロックされたときの理由も考慮して、dflemstrの回答を拡張します。それがブロックされている理由の理由が世話をされると、私は（例えばMVarはretry完了などにSTM取引に書かれている）、それもかなりすぐにそれが再びコードを実行していますように、として生きて数えると思う：

import GHC.Conc 
import Control.Monad 

isThreadStatusBlocked :: ThreadStatus -> Bool 
isThreadStatusBlocked (ThreadBlocked _) = True 
isThreadStatusBlocked _ = False 

isAlive :: ThreadId -> IO Bool 
isAlive = fmap (liftM2 (||) (ThreadRunning ==) isThreadStatusBlocked) . threadStatus