Wolfgang Jeltsch pushed to branch wip/jeltsch/base-buildable-with-ghc-9-14 at Glasgow Haskell Compiler / GHC
Commits:
-
35bf8ff4
by Wolfgang Jeltsch at 2026-05-19T21:14:03+03:00
1 changed file:
Changes:
| 1 | +{-# LANGUAGE CPP #-}
|
|
| 1 | 2 | {-# LANGUAGE RecordWildCards #-}
|
| 2 | 3 | {-# LANGUAGE DeriveGeneric #-}
|
| 3 | 4 | |
| ... | ... | @@ -388,11 +389,13 @@ internal_to_base_MiscFlags i@Internal.MiscFlags{..} = |
| 388 | 389 | internal_to_base_ioManager :: Internal.IoManagerFlag -> IoManagerFlag
|
| 389 | 390 | internal_to_base_ioManager Internal.IoManagerFlagAuto = IoManagerFlagAuto
|
| 390 | 391 | internal_to_base_ioManager Internal.IoManagerFlagSelect = IoManagerFlagSelect
|
| 392 | +#if __GLASGOW_HASKELL__ >= 1000
|
|
| 391 | 393 | internal_to_base_ioManager Internal.IoManagerFlagPoll = IoManagerFlagAuto
|
| 392 | 394 | -- This is a lie, we cannot translate poll. We cannot translate
|
| 393 | 395 | -- accurately because want to freeze the API of the the compat RTS flags
|
| 394 | 396 | -- here. Using "auto" is the least bad translation.
|
| 395 | 397 | -- https://github.com/haskell/core-libraries-committee/issues/362
|
| 398 | +#endif
|
|
| 396 | 399 | internal_to_base_ioManager Internal.IoManagerFlagMIO = IoManagerFlagMIO
|
| 397 | 400 | internal_to_base_ioManager Internal.IoManagerFlagWinIO = IoManagerFlagWinIO
|
| 398 | 401 | internal_to_base_ioManager Internal.IoManagerFlagWin32Legacy = IoManagerFlagWin32Legacy
|