X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreads.c;h=d7b5f4168e7cdc91e9ef78b0b2ed8b8fab013f93;hb=6494b3cb78498363a2578a62d6cbbf3f55793e2a;hp=d2cac625efc3a63b1d968754c2e878971ec2a269;hpb=f9e1c2af8fdd112019a657e66b0cd685d8df66f6;p=ghc-hetmet.git

diff --git a/rts/Threads.c b/rts/Threads.c
index d2cac62..d7b5f41 100644
--- a/rts/Threads.c
+++ b/rts/Threads.c
@@ -657,13 +657,13 @@ awakenBlockedQueue(Capability *cap, StgTSO *tso)
  * used by Control.Concurrent for error checking.
  * ------------------------------------------------------------------------- */
  
-StgBool
+HsBool
 rtsSupportsBoundThreads(void)
 {
 #if defined(THREADED_RTS)
-  return rtsTrue;
+  return HS_BOOL_TRUE;
 #else
-  return rtsFalse;
+  return HS_BOOL_FALSE;
 #endif
 }