Use primop wrappers instead of tagToEnum#
[packages/base.git] / GHC / Event.hs
index 257412f..b49645e 100644 (file)
@@ -14,6 +14,8 @@ module GHC.Event
 
       -- * Creation
     , getSystemEventManager
+    , new
+    , getSystemTimerManager
 
       -- * Registering interest in I/O events
     , Event
@@ -36,5 +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)