summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2022-01-19 10:31:28 -0500
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-01-24 21:30:13 -0500
commit4eac8e727e36785af0d74d7ec9437bc78e20628e (patch)
tree84650bf60d04f9becbada56ece6500e1a2bba9f4
parent9b0d56d3356da622979e1a4514fb5681060b2bbb (diff)
downloadhaskell-4eac8e727e36785af0d74d7ec9437bc78e20628e.tar.gz
ghc-heap: Drop mention of BlockedOnIOCompletion
Fixes bootstrap with GHC 9.0 after 5a6efd218734dbb5c1350531680cd3f4177690f1
-rw-r--r--libraries/ghc-heap/GHC/Exts/Heap/FFIClosures_ProfilingDisabled.hsc3
-rw-r--r--libraries/ghc-heap/GHC/Exts/Heap/FFIClosures_ProfilingEnabled.hsc3
2 files changed, 0 insertions, 6 deletions
diff --git a/libraries/ghc-heap/GHC/Exts/Heap/FFIClosures_ProfilingDisabled.hsc b/libraries/ghc-heap/GHC/Exts/Heap/FFIClosures_ProfilingDisabled.hsc
index 48f99d2fcb..4ea2a17f3f 100644
--- a/libraries/ghc-heap/GHC/Exts/Heap/FFIClosures_ProfilingDisabled.hsc
+++ b/libraries/ghc-heap/GHC/Exts/Heap/FFIClosures_ProfilingDisabled.hsc
@@ -77,9 +77,6 @@ parseWhyBlocked w = case w of
(#const BlockedOnCCall_Interruptible) -> BlockedOnCCall_Interruptible
(#const BlockedOnMsgThrowTo) -> BlockedOnMsgThrowTo
(#const ThreadMigrating) -> ThreadMigrating
-#if __GLASGOW_HASKELL__ >= 811 && __GLASGOW_HASKELL__ < 903
- (#const BlockedOnIOCompletion) -> BlockedOnIOCompletion
-#endif
_ -> WhyBlockedUnknownValue w
parseTsoFlags :: Word32 -> [TsoFlags]
diff --git a/libraries/ghc-heap/GHC/Exts/Heap/FFIClosures_ProfilingEnabled.hsc b/libraries/ghc-heap/GHC/Exts/Heap/FFIClosures_ProfilingEnabled.hsc
index e9d106d46a..a7954acce2 100644
--- a/libraries/ghc-heap/GHC/Exts/Heap/FFIClosures_ProfilingEnabled.hsc
+++ b/libraries/ghc-heap/GHC/Exts/Heap/FFIClosures_ProfilingEnabled.hsc
@@ -77,9 +77,6 @@ parseWhyBlocked w = case w of
(#const BlockedOnCCall_Interruptible) -> BlockedOnCCall_Interruptible
(#const BlockedOnMsgThrowTo) -> BlockedOnMsgThrowTo
(#const ThreadMigrating) -> ThreadMigrating
-#if __GLASGOW_HASKELL__ >= 811 && __GLASGOW_HASKELL__ < 903
- (#const BlockedOnIOCompletion) -> BlockedOnIOCompletion
-#endif
_ -> WhyBlockedUnknownValue w
parseTsoFlags :: Word32 -> [TsoFlags]