diff options
| author | Ryan Scott <rscott@galois.com> | 2021-06-22 11:50:33 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-06-28 16:58:03 -0400 |
| commit | a7f9670e899bcbc87276446a1aac2304cade2b2f (patch) | |
| tree | e7a644ce9ebe9d4e54955188d136117a58fc2628 /libraries | |
| parent | 755cb2b0c161d306497b7581b984f62ca23bca15 (diff) | |
| download | haskell-a7f9670e899bcbc87276446a1aac2304cade2b2f.tar.gz | |
Fix type and strictness signature of forkOn#
This is a follow-up to #19992, which fixes the type and strictness signature
for `fork#`. The `forkOn#` primop also needs analogous changes, which this
patch accomplishes.
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/base/GHC/Conc/Sync.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/Conc/Sync.hs b/libraries/base/GHC/Conc/Sync.hs index 3a9f2bb533..ecae88cfc5 100644 --- a/libraries/base/GHC/Conc/Sync.hs +++ b/libraries/base/GHC/Conc/Sync.hs @@ -313,7 +313,7 @@ is recommended). -} forkOn :: Int -> IO () -> IO ThreadId forkOn (I# cpu) action = IO $ \ s -> - case (forkOn# cpu action_plus s) of (# s1, tid #) -> (# s1, ThreadId tid #) + case (forkOn# cpu (unIO action_plus) s) of (# s1, tid #) -> (# s1, ThreadId tid #) where -- We must use 'catch' rather than 'catchException' because the action -- could be bottom. #13330 |