summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2015-11-24 16:55:48 +0100
committerBen Gamari <ben@smart-cactus.org>2015-11-24 16:56:31 +0100
commit76f3142d6f712355c419dd78f3fffff01c15e85d (patch)
tree36e44a9f5292f2ae3d786a0af61a24faf772d7bd
parent5e04c384b02c7418fcaaaa72721d27383f2d464f (diff)
downloadhaskell-76f3142d6f712355c419dd78f3fffff01c15e85d.tar.gz
DynFlags: Drop stale comment
-rw-r--r--compiler/main/DynFlags.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 39fb81a6b8..e005be25cb 100644
--- a/compiler/main/DynFlags.hs
+++ b/compiler/main/DynFlags.hs
@@ -3538,10 +3538,9 @@ glasgowExtsFlags = [
, Opt_UnicodeSyntax
, Opt_UnliftedFFITypes ]
--- Consult the RTS to find whether GHC itself has been built profiled
--- If so, you can't use Template Haskell
foreign import ccall unsafe "rts_isProfiled" rtsIsProfiledIO :: IO CInt
+-- | Was the runtime system built with profiling enabled?
rtsIsProfiled :: Bool
rtsIsProfiled = unsafeDupablePerformIO rtsIsProfiledIO /= 0