diff options
-rw-r--r-- | compiler/GHC/Data/FastString.hs | 2 | ||||
-rw-r--r-- | compiler/ghc.cabal.in | 2 | ||||
-rw-r--r-- | ghc/ghc-bin.cabal.in | 2 | ||||
m--------- | libraries/Cabal | 0 | ||||
m--------- | libraries/bytestring | 0 | ||||
-rw-r--r-- | libraries/ghc-boot/ghc-boot.cabal.in | 2 | ||||
-rw-r--r-- | libraries/ghci/ghci.cabal.in | 2 | ||||
m--------- | libraries/haskeline | 0 | ||||
-rw-r--r-- | libraries/libiserv/libiserv.cabal.in | 2 | ||||
m--------- | libraries/parsec | 0 | ||||
m--------- | libraries/text | 0 | ||||
m--------- | libraries/unix | 0 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T9881.stdout | 3 | ||||
-rw-r--r-- | testsuite/tests/perf/should_run/T4978.hs | 3 | ||||
-rw-r--r-- | testsuite/tests/profiling/should_run/T3001-2.hs | 12 | ||||
-rw-r--r-- | utils/ghc-cabal/ghc-cabal.cabal | 2 | ||||
-rw-r--r-- | utils/ghc-cabal/ghc.mk | 2 | ||||
-rw-r--r-- | utils/iserv/iserv.cabal.in | 2 |
18 files changed, 20 insertions, 16 deletions
diff --git a/compiler/GHC/Data/FastString.hs b/compiler/GHC/Data/FastString.hs index 58a96a8fdf..9ba933f336 100644 --- a/compiler/GHC/Data/FastString.hs +++ b/compiler/GHC/Data/FastString.hs @@ -131,7 +131,9 @@ import qualified Data.ByteString as BS import qualified Data.ByteString.Char8 as BSC import qualified Data.ByteString.Unsafe as BS import qualified Data.ByteString.Short as SBS +#if !MIN_VERSION_bytestring(0,11,0) import qualified Data.ByteString.Short.Internal as SBS +#endif import Foreign.C import System.IO import Data.Data diff --git a/compiler/ghc.cabal.in b/compiler/ghc.cabal.in index 148d578130..a020c440e8 100644 --- a/compiler/ghc.cabal.in +++ b/compiler/ghc.cabal.in @@ -61,7 +61,7 @@ Library deepseq >= 1.4 && < 1.5, directory >= 1 && < 1.4, process >= 1 && < 1.7, - bytestring >= 0.9 && < 0.11, + bytestring >= 0.9 && < 0.12, binary == 0.8.*, time >= 1.4 && < 1.12, containers >= 0.6.2.1 && < 0.7, diff --git a/ghc/ghc-bin.cabal.in b/ghc/ghc-bin.cabal.in index d29f71ab04..047dfd9f3b 100644 --- a/ghc/ghc-bin.cabal.in +++ b/ghc/ghc-bin.cabal.in @@ -35,7 +35,7 @@ Executable ghc Main-Is: Main.hs Build-Depends: base >= 4 && < 5, array >= 0.1 && < 0.6, - bytestring >= 0.9 && < 0.11, + bytestring >= 0.9 && < 0.12, directory >= 1 && < 1.4, process >= 1 && < 1.7, filepath >= 1 && < 1.5, diff --git a/libraries/Cabal b/libraries/Cabal -Subproject 23ca3cb318418aaf4aafd3db862278a12a794a2 +Subproject 997930e0d6c6c5a8ceadd91d4f5e21751098a1b diff --git a/libraries/bytestring b/libraries/bytestring -Subproject da9d8d80f3bdb440cf4fbba65c08e289f58535a +Subproject 310cdb90c925c35f962df9c690bd35e20136da2 diff --git a/libraries/ghc-boot/ghc-boot.cabal.in b/libraries/ghc-boot/ghc-boot.cabal.in index eb6ec3bd76..37a59be090 100644 --- a/libraries/ghc-boot/ghc-boot.cabal.in +++ b/libraries/ghc-boot/ghc-boot.cabal.in @@ -67,7 +67,7 @@ Library build-depends: base >= 4.7 && < 4.17, binary == 0.8.*, - bytestring == 0.10.*, + bytestring >= 0.10 && < 0.12, containers >= 0.5 && < 0.7, directory >= 1.2 && < 1.4, filepath >= 1.3 && < 1.5, diff --git a/libraries/ghci/ghci.cabal.in b/libraries/ghci/ghci.cabal.in index 1674a71dd6..d2db85c76b 100644 --- a/libraries/ghci/ghci.cabal.in +++ b/libraries/ghci/ghci.cabal.in @@ -74,7 +74,7 @@ library base >= 4.8 && < 4.17, ghc-prim >= 0.5.0 && < 0.9, binary == 0.8.*, - bytestring == 0.10.*, + bytestring >= 0.10 && < 0.12, containers >= 0.5 && < 0.7, deepseq == 1.4.*, filepath == 1.4.*, diff --git a/libraries/haskeline b/libraries/haskeline -Subproject 28ee26ad5b4ae1c0584f2ec11ac53be9671bf87 +Subproject 7d8d1abd6878ad14583ac476b664d5c3edf2f33 diff --git a/libraries/libiserv/libiserv.cabal.in b/libraries/libiserv/libiserv.cabal.in index 3721a853cc..c8cdf33a8a 100644 --- a/libraries/libiserv/libiserv.cabal.in +++ b/libraries/libiserv/libiserv.cabal.in @@ -26,7 +26,7 @@ Library , GHCi.Utils Build-Depends: base >= 4 && < 5, binary >= 0.7 && < 0.11, - bytestring >= 0.10 && < 0.11, + bytestring >= 0.10 && < 0.12, containers >= 0.5 && < 0.7, deepseq >= 1.4 && < 1.5, ghci == @ProjectVersionMunged@ diff --git a/libraries/parsec b/libraries/parsec -Subproject 905bc2e3e1c374934d49e16dc5b7c49bf2c3c81 +Subproject 38dfc545874dd44c26382d8dd692eb533396c6f diff --git a/libraries/text b/libraries/text -Subproject 3ed977de30e9fb74af33ce9ea4efa4a284c17bd +Subproject 853471cc714922a9f914342fa0bb9ef10e5b415 diff --git a/libraries/unix b/libraries/unix -Subproject e079823775066bcab56b22842be6cce6e060fb9 +Subproject 21437f20a41eb1a4c7d42fc402fe91350eb8b03 diff --git a/testsuite/tests/ghci/scripts/T9881.stdout b/testsuite/tests/ghci/scripts/T9881.stdout index 57bc6256d3..45e3de396a 100644 --- a/testsuite/tests/ghci/scripts/T9881.stdout +++ b/testsuite/tests/ghci/scripts/T9881.stdout @@ -19,10 +19,9 @@ instance Read Data.ByteString.Lazy.ByteString type Data.ByteString.ByteString :: * data Data.ByteString.ByteString - = Data.ByteString.Internal.PS {-# UNPACK #-}(GHC.ForeignPtr.ForeignPtr + = Data.ByteString.Internal.BS {-# UNPACK #-}(GHC.ForeignPtr.ForeignPtr GHC.Word.Word8) {-# UNPACK #-}Int - {-# UNPACK #-}Int -- Defined in ‘Data.ByteString.Internal’ instance Eq Data.ByteString.ByteString -- Defined in ‘Data.ByteString.Internal’ diff --git a/testsuite/tests/perf/should_run/T4978.hs b/testsuite/tests/perf/should_run/T4978.hs index 9324b72be0..e5573def6f 100644 --- a/testsuite/tests/perf/should_run/T4978.hs +++ b/testsuite/tests/perf/should_run/T4978.hs @@ -2,7 +2,6 @@ module Main (main) where import qualified Data.ByteString as S import qualified Data.ByteString.Lazy as L -import Data.ByteString.Internal (inlinePerformIO) import qualified Data.ByteString.Internal as S import Data.Semigroup import Data.Monoid @@ -66,7 +65,7 @@ defaultSize = 32 * k - overhead -- | Sequence an IO operation on the buffer unsafeLiftIO :: (Buffer -> IO Buffer) -> Builder -unsafeLiftIO f = Builder $ \ k buf -> inlinePerformIO $ do +unsafeLiftIO f = Builder $ \ k buf -> unsafePerformIO $ do buf' <- f buf return (k buf') {-# INLINE unsafeLiftIO #-} diff --git a/testsuite/tests/profiling/should_run/T3001-2.hs b/testsuite/tests/profiling/should_run/T3001-2.hs index c7340dfd19..3767073cc3 100644 --- a/testsuite/tests/profiling/should_run/T3001-2.hs +++ b/testsuite/tests/profiling/should_run/T3001-2.hs @@ -3,20 +3,19 @@ -- GHC 6.10.1 and run with +RTS -hb. Most of the code is from the -- binary 0.4.4 package. -{-# LANGUAGE CPP, FlexibleInstances, FlexibleContexts, MagicHash #-} +{-# LANGUAGE CPP, FlexibleInstances, FlexibleContexts, MagicHash, UnboxedTuples #-} module Main (main) where import Data.Semigroup -import Data.ByteString.Internal (inlinePerformIO) - import qualified Data.ByteString as S import qualified Data.ByteString.Internal as S import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy.Internal as L import GHC.Exts +import GHC.IO import GHC.Word import Control.Monad @@ -28,6 +27,11 @@ import Data.Char (chr,ord) import Control.Applicative +inlinePerformIO :: IO a -> a +inlinePerformIO (IO m) = case m realWorld# of + (# _, r #) -> r +{-# INLINE inlinePerformIO #-} + main :: IO () main = do encodeFile "test.bin" $ replicate 10000 'x' @@ -158,7 +162,7 @@ shiftl_w32 (W32# w) (I# i) = W32# (wordToWord32# ((word32ToWord# w) `uncheckedSh getPtr :: Storable a => Int -> Get a getPtr n = do (fp,o,_) <- readN n S.toForeignPtr - return . S.inlinePerformIO $ withForeignPtr fp $ \p -> peek (castPtr $ p `plusPtr` o) + return . inlinePerformIO $ withForeignPtr fp $ \p -> peek (castPtr $ p `plusPtr` o) getBytes :: Int -> Get S.ByteString getBytes n = do diff --git a/utils/ghc-cabal/ghc-cabal.cabal b/utils/ghc-cabal/ghc-cabal.cabal index e00a812f32..4ad88ead3c 100644 --- a/utils/ghc-cabal/ghc-cabal.cabal +++ b/utils/ghc-cabal/ghc-cabal.cabal @@ -20,7 +20,7 @@ Executable ghc-cabal Main-Is: Main.hs Build-Depends: base >= 3 && < 5, - bytestring >= 0.10 && < 0.11, + bytestring >= 0.10 && < 0.12, Cabal >= 3.2 && < 3.6, directory >= 1.1 && < 1.4, filepath >= 1.2 && < 1.5 diff --git a/utils/ghc-cabal/ghc.mk b/utils/ghc-cabal/ghc.mk index e9647a2af1..76b083684f 100644 --- a/utils/ghc-cabal/ghc.mk +++ b/utils/ghc-cabal/ghc.mk @@ -76,7 +76,7 @@ $(ghc-cabal_DIST_BINARY): $(CABAL_LEXER_DEP) utils/ghc-cabal/Main.hs $(TOUCH_DEP -ilibraries/filepath \ -ilibraries/hpc \ -ilibraries/mtl \ - -ilibraries/text \ + -ilibraries/text/src \ libraries/text/cbits/cbits.c \ -Ilibraries/text/include \ -ilibraries/parsec/src \ diff --git a/utils/iserv/iserv.cabal.in b/utils/iserv/iserv.cabal.in index 356c8a444a..46a0357a63 100644 --- a/utils/iserv/iserv.cabal.in +++ b/utils/iserv/iserv.cabal.in @@ -36,7 +36,7 @@ Executable iserv Build-Depends: array >= 0.5 && < 0.6, base >= 4 && < 5, binary >= 0.7 && < 0.11, - bytestring >= 0.10 && < 0.11, + bytestring >= 0.10 && < 0.12, containers >= 0.5 && < 0.7, deepseq >= 1.4 && < 1.5, ghci == @ProjectVersionMunged@, |