diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-01-19 10:31:28 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-01-21 08:09:33 -0500 |
| commit | 3796d8a4b252d693ce09493c045d38dce094805c (patch) | |
| tree | 777e187da5c84ed5f72a1da3202ff2a9a8acbd41 | |
| parent | 85dc61ee14049c85ab342747b0c2669e5ba3f55f (diff) | |
| download | haskell-wip/T18382.tar.gz | |
ghc-heap: Drop mention of BlockedOnIOCompletionwip/T18382
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] |