Use primop wrappers instead of tagToEnum#
[packages/base.git] / GHC / Event.hs
index 7920895..b49645e 100644 (file)
@@ -1,21 +1,21 @@
+{-# LANGUAGE Trustworthy #-}
+
+-- ----------------------------------------------------------------------------
 -- | This module provides scalable event notification for file
 -- descriptors and timeouts.
 --
 -- This module should be considered GHC internal.
+--
+-- ----------------------------------------------------------------------------
+
 module GHC.Event
     ( -- * Types
       EventManager
 
       -- * Creation
-    , new
     , getSystemEventManager
-
-      -- * Running
-    , loop
-
-    -- ** Stepwise running
-    , step
-    , shutdown
+    , new
+    , getSystemTimerManager
 
       -- * Registering interest in I/O events
     , Event
@@ -38,4 +38,7 @@ module GHC.Event
     ) where
 
 import GHC.Event.Manager
-import GHC.Event.Thread (getSystemEventManager)
+import GHC.Event.TimerManager (TimeoutCallback, TimeoutKey, registerTimeout,
+                               updateTimeout, unregisterTimeout)
+import GHC.Event.Thread (getSystemEventManager, getSystemTimerManager)
+