diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-01-19 10:31:28 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-01-24 21:30:13 -0500 |
| commit | 4eac8e727e36785af0d74d7ec9437bc78e20628e (patch) | |
| tree | 84650bf60d04f9becbada56ece6500e1a2bba9f4 | |
| parent | 9b0d56d3356da622979e1a4514fb5681060b2bbb (diff) | |
| download | haskell-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.hsc | 3 | ||||
| -rw-r--r-- | libraries/ghc-heap/GHC/Exts/Heap/FFIClosures_ProfilingEnabled.hsc | 3 |
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] |