Fix hangs with -threaded on iOS (#8307)
authorAustin Seipp <aseipp@pobox.com>
Sat, 12 Oct 2013 03:11:53 +0000 (22:11 -0500)
committerAustin Seipp <aseipp@pobox.com>
Sat, 12 Oct 2013 03:11:53 +0000 (22:11 -0500)
Authored-by: Luke Iannini <lukexi@me.com>
Signed-off-by: Austin Seipp <aseipp@pobox.com>
GHC/Event/Manager.hs

index 5c87d0c..14f7098 100644 (file)
@@ -135,7 +135,7 @@ callbackTableVar mgr fd = emFds mgr ! hashFd fd
 
 haveOneShot :: Bool
 {-# INLINE haveOneShot #-}
-#if defined(darwin_HOST_OS)
+#if defined(darwin_HOST_OS) || defined(ios_HOST_OS)
 haveOneShot = False
 #elif defined(HAVE_EPOLL) || defined(HAVE_KQUEUE)
 haveOneShot = True
@@ -353,7 +353,7 @@ registerFd mgr cb fd evs = do
 -}
 -- | Wake up the event manager.
 wakeManager :: EventManager -> IO ()
-#if defined(darwin_HOST_OS)
+#if defined(darwin_HOST_OS) || defined(ios_HOST_OS)
 wakeManager mgr = sendWakeup (emControl mgr)
 #elif defined(HAVE_EPOLL) || defined(HAVE_KQUEUE)
 wakeManager _ = return ()