diff options
Diffstat (limited to 'libraries/base/GHC/Event/Thread.hs')
| -rw-r--r-- | libraries/base/GHC/Event/Thread.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/libraries/base/GHC/Event/Thread.hs b/libraries/base/GHC/Event/Thread.hs index 7e7b215f24..f76e9147da 100644 --- a/libraries/base/GHC/Event/Thread.hs +++ b/libraries/base/GHC/Event/Thread.hs @@ -2,7 +2,12 @@ {-# LANGUAGE Trustworthy #-} {-# LANGUAGE BangPatterns, NoImplicitPrelude #-} +#include <ghcplatform.h> + module GHC.Event.Thread +#if defined(js_HOST_ARCH) + ( ) where +#else ( getSystemEventManager , getSystemTimerManager , ensureIOManagerIsRunning @@ -17,7 +22,6 @@ module GHC.Event.Thread , blockedOnBadFD -- used by RTS ) where -#include <ghcplatform.h> -- TODO: Use new Windows I/O manager import Control.Exception (finally, SomeException, toException) @@ -439,3 +443,5 @@ foreign import ccall unsafe "setIOManagerControlFd" foreign import ccall unsafe "setTimerManagerControlFd" c_setTimerManagerControlFd :: CInt -> IO () #endif + +#endif |