final revision to GArrow classes

[ghc-base.git] / GHC / Event.hs

diff --git a/GHC/Event.hs b/GHC/Event.hs
index 6bb975e..7920895 100644 (file)
--- a/GHC/Event.hs
+++ b/GHC/Event.hs
@@ -8,6 +8,7 @@ module GHC.Event
 
       -- * Creation
     , new
+    , getSystemEventManager
 
       -- * Running
     , loop
@@ -37,3 +38,4 @@ module GHC.Event
     ) where
 
 import GHC.Event.Manager
+import GHC.Event.Thread (getSystemEventManager)