From: Ross Paterson <ross@soi.city.ac.uk>
Date: Wed, 14 Jun 2006 11:44:56 +0000 (+0000)
Subject: add signature for registerDelay
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a058649879dc906e4e9c810ab5a0be4b2b878b14;p=ghc-base.git

add signature for registerDelay
---

diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs
index fb5cc6e..0b6bc91 100644
--- a/GHC/Conc.lhs
+++ b/GHC/Conc.lhs
@@ -583,6 +583,7 @@ threadDelay time
 	case delay# time# s of { s -> (# s, () #)
 	}}
 
+registerDelay :: Int -> IO (TVar Bool)
 registerDelay usecs 
 #ifndef mingw32_HOST_OS
   | threaded = waitForDelayEventSTM usecs