X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FEvent%2FManager.hs;fp=System%2FEvent%2FManager.hs;h=bb7379cabf68d75b0bb2c2ea2ee2dbdffda50a6d;hb=5caacc93b6904c13dd363f3ba4815c25c6c4fb26;hp=9766774f550db0a49e50efe6fe004e57aa3ed0ad;hpb=a6ad1ebfcad259e9b8ba60c32ab04437e328f54a;p=ghc-base.git

diff --git a/System/Event/Manager.hs b/GHC/Event/Manager.hs
similarity index 95%
rename from System/Event/Manager.hs
rename to GHC/Event/Manager.hs
index 9766774..bb7379c 100644
--- a/System/Event/Manager.hs
+++ b/GHC/Event/Manager.hs
@@ -7,7 +7,7 @@
            , FlexibleInstances
   #-}
 
-module System.Event.Manager
+module GHC.Event.Manager
     ( -- * Types
       EventManager
 
@@ -62,23 +62,23 @@ import GHC.List (filter)
 import GHC.Num (Num(..))
 import GHC.Real ((/), fromIntegral )
 import GHC.Show (Show(..))
-import System.Event.Clock (getCurrentTime)
-import System.Event.Control
-import System.Event.Internal (Backend, Event, evtClose, evtRead, evtWrite,
-                              Timeout(..))
-import System.Event.Unique (Unique, UniqueSource, newSource, newUnique)
+import GHC.Event.Clock (getCurrentTime)
+import GHC.Event.Control
+import GHC.Event.Internal (Backend, Event, evtClose, evtRead, evtWrite,
+                           Timeout(..))
+import GHC.Event.Unique (Unique, UniqueSource, newSource, newUnique)
 import System.Posix.Types (Fd)
 
-import qualified System.Event.IntMap as IM
-import qualified System.Event.Internal as I
-import qualified System.Event.PSQ as Q
+import qualified GHC.Event.IntMap as IM
+import qualified GHC.Event.Internal as I
+import qualified GHC.Event.PSQ as Q
 
 #if defined(HAVE_KQUEUE)
-import qualified System.Event.KQueue as KQueue
+import qualified GHC.Event.KQueue as KQueue
 #elif defined(HAVE_EPOLL)
-import qualified System.Event.EPoll  as EPoll
+import qualified GHC.Event.EPoll  as EPoll
 #elif defined(HAVE_POLL)
-import qualified System.Event.Poll   as Poll
+import qualified GHC.Event.Poll   as Poll
 #else
 # error not implemented for this operating system
 #endif
@@ -240,7 +240,7 @@ loop mgr@EventManager{..} = do
     Created -> go Q.empty `finally` cleanup mgr
     Dying   -> cleanup mgr
     _       -> do cleanup mgr
-                  error $ "System.Event.Manager.loop: state is already " ++
+                  error $ "GHC.Event.Manager.loop: state is already " ++
                       show state
  where
   go q = do (running, q') <- step mgr q