dfl*_*str 17

base据我所知,这对于标准库是不可能的,但您可以使用GHC特定的API来获取线程的状态:

import GHC.Conc

alive :: ThreadID -> IO Bool
alive = fmap (== ThreadRunning) . threadStatus
Run Code Online (Sandbox Code Playgroud)