X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTask.h;h=f91872f9a01e2cbae81eba66fee80e4724db8de6;hb=ea0bfdada955e3f5de8c38b06c831f6dc64ba0f2;hp=17a443ad6bcb53d597ee19501d502814e78d5241;hpb=2007d2138cf17efe6a1701510dbafdfc30e8926c;p=ghc-hetmet.git

diff --git a/rts/Task.h b/rts/Task.h
index 17a443a..f91872f 100644
--- a/rts/Task.h
+++ b/rts/Task.h
@@ -4,6 +4,9 @@
  *
  * Tasks
  *
+ * For details on the high-level design, see
+ *   http://hackage.haskell.org/trac/ghc/wiki/Commentary/Rts/Scheduler
+ *
  * -------------------------------------------------------------------------*/
 
 #ifndef TASK_H
@@ -11,7 +14,7 @@
 
 #include "GetTime.h"
 
-BEGIN_RTS_PRIVATE
+#include "BeginPrivate.h"
 
 /* 
    Definition of a Task
@@ -267,6 +270,6 @@ setMyTask (Task *task)
 #endif
 }
 
-END_RTS_PRIVATE
+#include "EndPrivate.h"
 
 #endif /* TASK_H */