diff options
author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2021-03-31 15:31:19 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-04-09 03:31:02 -0400 |
commit | c02ac1bbd2d882d58307fa3009aa2d9665399703 (patch) | |
tree | 0c5a038ca509a36e4b24ceca3643d65e63a7e533 /compiler/GHC/SysTools | |
parent | 0bdb867e37bcfe4ae2c5c4f5f7e54b41acfe6116 (diff) | |
download | haskell-c02ac1bbd2d882d58307fa3009aa2d9665399703.tar.gz |
Re-export GHC.Bits from GHC.Prelude with custom shift implementation.
This allows us to use the unsafe shifts in non-debug builds for performance.
For older versions of base we instead export Data.Bits
See also #19618
Diffstat (limited to 'compiler/GHC/SysTools')
-rw-r--r-- | compiler/GHC/SysTools/Terminal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/SysTools/Terminal.hs b/compiler/GHC/SysTools/Terminal.hs index c7951e0b43..fb122865f0 100644 --- a/compiler/GHC/SysTools/Terminal.hs +++ b/compiler/GHC/SysTools/Terminal.hs @@ -12,7 +12,7 @@ import System.Console.Terminfo (SetupTermError, Terminal, getCapability, import System.Posix (queryTerminal, stdError) #elif defined(mingw32_HOST_OS) import Control.Exception (catch, try) -import Data.Bits ((.|.), (.&.)) +-- import Data.Bits ((.|.), (.&.)) import Foreign (Ptr, peek, with) import qualified Graphics.Win32 as Win32 import qualified System.Win32 as Win32 |