summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libraries/base/Data/Array/Byte.hs (renamed from libraries/base/Data/Array/ByteArray.hs)12
-rw-r--r--libraries/base/base.cabal2
-rw-r--r--libraries/base/changelog.md2
3 files changed, 8 insertions, 8 deletions
diff --git a/libraries/base/Data/Array/ByteArray.hs b/libraries/base/Data/Array/Byte.hs
index 18b0f5b2ec..7d43c03a31 100644
--- a/libraries/base/Data/Array/ByteArray.hs
+++ b/libraries/base/Data/Array/Byte.hs
@@ -1,5 +1,5 @@
-- |
--- Module : Data.Array.ByteArray
+-- Module : Data.Array.Byte
-- Copyright : (c) Roman Leshchinskiy 2009-2012
-- License : BSD-style
--
@@ -14,7 +14,7 @@
{-# LANGUAGE Trustworthy #-}
{-# LANGUAGE UnboxedTuples #-}
-module Data.Array.ByteArray (
+module Data.Array.Byte (
ByteArray(..)
) where
@@ -92,12 +92,12 @@ byteArrayFromListN n ys = runST $ do
marr <- newByteArray n
let go !ix [] = if ix == n
then return ()
- else error $ "Data.Array.ByteArray.byteArrayFromListN: list length less than specified size"
+ else error $ "Data.Array.Byte.byteArrayFromListN: list length less than specified size"
go !ix (x : xs) = if ix < n
then do
writeByteArray marr ix x
go (ix + 1) xs
- else error $ "Data.Array.ByteArray.byteArrayFromListN: list length greater than specified size"
+ else error $ "Data.Array.Byte.byteArrayFromListN: list length greater than specified size"
go 0 ys
unsafeFreezeByteArray marr
@@ -119,7 +119,7 @@ copyByteArray (MutableByteArray dst#) (I# doff#) (ByteArray src#) (I# soff#) (I#
instance Data ByteArray where
toConstr _ = error "toConstr"
gunfold _ _ = error "gunfold"
- dataTypeOf _ = mkNoRepType "Data.Array.ByteArray.ByteArray"
+ dataTypeOf _ = mkNoRepType "Data.Array.Byte.ByteArray"
instance Show ByteArray where
showsPrec _ ba =
@@ -228,7 +228,7 @@ instance Semigroup ByteArray where
stimes i arr
| itgr < 1 = emptyByteArray
| itgr <= (fromIntegral (maxBound :: Int)) = replicateByteArray (fromIntegral itgr) arr
- | otherwise = error "Data.Array.ByteArray#stimes: cannot allocate the requested amount of memory"
+ | otherwise = error "Data.Array.Byte#stimes: cannot allocate the requested amount of memory"
where itgr = toInteger i :: Integer
instance Monoid ByteArray where
diff --git a/libraries/base/base.cabal b/libraries/base/base.cabal
index 5d9a145421..bb62f89ddd 100644
--- a/libraries/base/base.cabal
+++ b/libraries/base/base.cabal
@@ -113,7 +113,7 @@ Library
Control.Monad.ST.Strict
Control.Monad.ST.Unsafe
Control.Monad.Zip
- Data.Array.ByteArray
+ Data.Array.Byte
Data.Bifoldable
Data.Bifunctor
Data.Bitraversable
diff --git a/libraries/base/changelog.md b/libraries/base/changelog.md
index 422e8cdd2c..b6273f56de 100644
--- a/libraries/base/changelog.md
+++ b/libraries/base/changelog.md
@@ -12,7 +12,7 @@
* Introduce `GHC.ExecutablePath.executablePath`, which is more robust than
`getExecutablePath` in cases when the executable has been deleted.
- * Add `Data.Array.ByteArray` module, providing a boxed `ByteArray#`.
+ * Add `Data.Array.Byte` module, providing a boxed `ByteArray#`.
* `fromEnum` for `Natural` now throws an error for any number that cannot be
repesented exactly by an `Int` (#20291).