Searched refs:hsc_iserv (Results 1 – 4 of 4) sorted by relevance
200 m <- liftIO $ takeMVar hsc_iserv203 `gonException` (liftIO $ putMVar hsc_iserv Nothing)211 `gonException` (liftIO $ putMVar hsc_iserv (Just iserv'))212 liftIO $ putMVar hsc_iserv (Just iserv')522 m <- takeMVar hsc_iserv524 putMVar hsc_iserv Nothing621 modifyMVar_ hsc_iserv $ \mb_iserv ->
209 , hsc_iserv = iserv_mvar function
473 , hsc_iserv :: MVar (Maybe IServ) function