From: Ross Paterson <ross@soi.city.ac.uk>
Date: Mon, 11 Aug 2008 17:50:39 +0000 (+0000)
Subject: threadDelay and friends are GHC-only
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9704c5d859f22d02a217c3a1e748d6a57fc2bfb7;p=ghc-base.git

threadDelay and friends are GHC-only
---

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index 38a08d2..a0faad0 100644
--- a/Control/Concurrent.hs
+++ b/Control/Concurrent.hs
@@ -427,6 +427,7 @@ runInUnboundThread action = do
 
 #endif /* __GLASGOW_HASKELL__ */
 
+#ifdef __GLASGOW_HASKELL__
 -- ---------------------------------------------------------------------------
 -- threadWaitRead/threadWaitWrite
 
@@ -618,3 +619,4 @@ foreign import ccall safe "fdReady"
       lock is woken up, but haven't found it to be useful for anything
       other than this example :-)
 -}
+#endif /* __GLASGOW_HASKELL__ */