diff options
| -rw-r--r-- | libraries/base/GHC/Event/TimerManager.hs | 2 | ||||
| -rw-r--r-- | libraries/base/GHC/IO/SubSystem.hs | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/libraries/base/GHC/Event/TimerManager.hs b/libraries/base/GHC/Event/TimerManager.hs index f23d632b21..c6518d8cba 100644 --- a/libraries/base/GHC/Event/TimerManager.hs +++ b/libraries/base/GHC/Event/TimerManager.hs @@ -51,7 +51,7 @@ import GHC.Real (quot, fromIntegral) import GHC.Show (Show(..)) import GHC.Event.Control import GHC.Event.Internal (Backend, Event, evtRead, Timeout(..)) -import GHC.Event.Unique (Unique, UniqueSource, newSource, newUnique) +import GHC.Event.Unique (UniqueSource, newSource, newUnique) import GHC.Event.TimeOut import System.Posix.Types (Fd) diff --git a/libraries/base/GHC/IO/SubSystem.hs b/libraries/base/GHC/IO/SubSystem.hs index 06e9a5a9cd..e26fd9f55a 100644 --- a/libraries/base/GHC/IO/SubSystem.hs +++ b/libraries/base/GHC/IO/SubSystem.hs @@ -29,9 +29,11 @@ module GHC.IO.SubSystem ( ) where import GHC.Base +import GHC.RTS.Flags +#if defined(mingw32_HOST_OS) import GHC.IO.Unsafe -import GHC.RTS.Flags +#endif infixl 7 <!> |