Generalise `Control.Monad.{when,unless,guard}`
[ghc.git] / rts / Ticker.h
index 159820d..2958211 100644 (file)
@@ -9,15 +9,23 @@
 #ifndef TICKER_H
 #define TICKER_H
 
-#pragma GCC visibility push(hidden)
+#include "BeginPrivate.h"
 
 typedef void (*TickProc)(int);
 
-void initTicker  (nat ms, TickProc handle_tick);
+void initTicker  (Time interval, TickProc handle_tick);
 void startTicker (void);
 void stopTicker  (void);
-void exitTicker  (void);
+void exitTicker  (rtsBool wait);
 
-#pragma GCC visibility pop
+#include "EndPrivate.h"
 
 #endif /* TICKER_H */
+
+// Local Variables:
+// mode: C
+// fill-column: 80
+// indent-tabs-mode: nil
+// c-basic-offset: 4
+// buffer-file-coding-system: utf-8-unix
+// End: