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/Runtime | |
| 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/Runtime')
| -rw-r--r-- | compiler/GHC/Runtime/Heap/Inspect.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/Runtime/Heap/Layout.hs | 1 |
2 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/Runtime/Heap/Inspect.hs b/compiler/GHC/Runtime/Heap/Inspect.hs index d6619e0e2f..d3acf5ffed 100644 --- a/compiler/GHC/Runtime/Heap/Inspect.hs +++ b/compiler/GHC/Runtime/Heap/Inspect.hs @@ -71,7 +71,7 @@ import Data.List ((\\)) import GHC.Exts import qualified Data.Sequence as Seq import Data.Sequence (viewl, ViewL(..)) -import Foreign +import Foreign hiding (shiftL, shiftR) import System.IO.Unsafe --------------------------------------------- diff --git a/compiler/GHC/Runtime/Heap/Layout.hs b/compiler/GHC/Runtime/Heap/Layout.hs index 7e4d5af136..2d402ae27a 100644 --- a/compiler/GHC/Runtime/Heap/Layout.hs +++ b/compiler/GHC/Runtime/Heap/Layout.hs @@ -57,7 +57,6 @@ import GHC.Utils.Outputable import GHC.Utils.Panic import Data.Word -import Data.Bits import Data.ByteString (ByteString) {- |