Added threadStatus to io-classes interface

Author: MaximilianAlgehed

io-classes/src/Control/Monad/Class/MonadFork.hs

@@ -16,7 +16,8 @@ import qualified Control.Concurrent as IO
 import           Control.Exception (AsyncException (ThreadKilled), Exception)
 import           Control.Monad.Reader (ReaderT (..), lift)
 import           Data.Kind (Type)
-import qualified GHC.Conc.Sync as IO (labelThread)
+import           GHC.Conc (ThreadStatus)
+import qualified GHC.Conc.Sync as IO (labelThread, threadStatus)
 
 
 class (Monad m, Eq   (ThreadId m),
@@ -27,6 +28,7 @@ class (Monad m, Eq   (ThreadId m),
 
   myThreadId     :: m (ThreadId m)
   labelThread    :: ThreadId m -> String -> m ()
+  threadStatus   :: ThreadId m -> m ThreadStatus
 
 
 class MonadThread m => MonadFork m where
@@ -54,6 +56,7 @@ instance MonadThread IO where
   type ThreadId IO = IO.ThreadId
   myThreadId = IO.myThreadId
   labelThread = IO.labelThread
+  threadStatus = IO.threadStatus
 
 instance MonadFork IO where
   forkIO           = IO.forkIO
@@ -67,6 +70,7 @@ instance MonadThread m => MonadThread (ReaderT r m) where
   type ThreadId (ReaderT r m) = ThreadId m
   myThreadId  = lift myThreadId
   labelThread t l = lift (labelThread t l)
+  threadStatus t = lift (threadStatus t)
 
 instance MonadFork m => MonadFork (ReaderT e m) where
   forkIO (ReaderT f)   = ReaderT $ \e -> forkIO (f e)