alive :: IOLoop a -> IO Bool
alive p = liftM isNothing (tryReadMVar (pollCtrl p))
alive :: IOLoop a -> IO Bool
alive p = liftM isNothing (tryReadMVar (pollCtrl p))
alive p = liftM isNothing (tryReadMVar (pollCtrl p))