summaryrefslogtreecommitdiff
path: root/rts/Task.h
diff options
context:
space:
mode:
authorMikolaj Konarski <mikolaj@well-typed.com>2012-07-24 11:41:27 +0200
committerMikolaj Konarski <mikolaj@well-typed.com>2012-07-25 16:24:45 +0200
commitc859d17f9b0ae8559dac4f7e5cb8521e7ab5f0fb (patch)
tree19453acb666d8630365eb9587749dbc271ed161c /rts/Task.h
parent4666be5d9471b8227f5e24c0b7860e84923489db (diff)
downloadhaskell-c859d17f9b0ae8559dac4f7e5cb8521e7ab5f0fb.tar.gz
Merge taskId and serialisableTaskId
A companion ghc-events pachakge commit displays task ids in the same format.
Diffstat (limited to 'rts/Task.h')
-rw-r--r--rts/Task.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Task.h b/rts/Task.h
index 0926950610..e5b729527d 100644
--- a/rts/Task.h
+++ b/rts/Task.h
@@ -312,7 +312,7 @@ serialisableTaskId (Task *task
#if defined(THREADED_RTS)
return serialiseTaskId(task->id);
#else
- return 1;
+ return (TaskId) (size_t) task;
#endif
}