Ticket #8307: extend-darwin-fixes-to-ios.patch

File extend-darwin-fixes-to-ios.patch, 765 bytes (added by lukexi, 2 years ago)
  • GHC/Event/Manager.hs

    diff --git a/GHC/Event/Manager.hs b/GHC/Event/Manager.hs
    index 5c87d0c..14f7098 100644
    a b callbackTableVar mgr fd = emFds mgr ! hashFd fd 
    135135
    136136haveOneShot :: Bool
    137137{-# INLINE haveOneShot #-}
    138 #if defined(darwin_HOST_OS)
     138#if defined(darwin_HOST_OS) || defined(ios_HOST_OS)
    139139haveOneShot = False
    140140#elif defined(HAVE_EPOLL) || defined(HAVE_KQUEUE)
    141141haveOneShot = True
    registerFd mgr cb fd evs = do 
    353353-}
    354354-- | Wake up the event manager.
    355355wakeManager :: EventManager -> IO ()
    356 #if defined(darwin_HOST_OS)
     356#if defined(darwin_HOST_OS) || defined(ios_HOST_OS)
    357357wakeManager mgr = sendWakeup (emControl mgr)
    358358#elif defined(HAVE_EPOLL) || defined(HAVE_KQUEUE)
    359359wakeManager _ = return ()