diff options
Diffstat (limited to 'libraries/base/GHC/Conc/Sync.hs')
| -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 7038b0db04..5c3e63a8e3 100644 --- a/libraries/base/GHC/Conc/Sync.hs +++ b/libraries/base/GHC/Conc/Sync.hs @@ -367,7 +367,7 @@ to avoid contention with other processes in the machine. -} setNumCapabilities :: Int -> IO () setNumCapabilities i - | i <= 0 = fail $ "setNumCapabilities: Capability count ("++show i++") must be positive" + | i <= 0 = failIO $ "setNumCapabilities: Capability count ("++show i++") must be positive" | otherwise = c_setNumCapabilities (fromIntegral i) foreign import ccall safe "setNumCapabilities" |