Add compatibility with recently added ByteArray to base:

* Switch to using `ByteArray` for type class implementation instead of
  `ShortByteString`
* Add `unsafeUniformFillMutableByteArray` to `RandomGen` and a helper function
  `defaultUnsafeUniformFillMutableByteArray` that makes implementation
  for most instances easier.
* Add `uniformByteArray`, `uniformByteString` and `uniformFillMutableByteArray`
* Add `uniformByteArrayM` to `StatefulGen`
* Add `uniformByteStringM` and `uniformShortByteStringM`
* Deprecate `uniformShortByteString` in favor of `uniformShortByteStringM` for
  consistent naming and a future plan of removing it from `StatefulGen`
  type class
* Expose a helper function `genByteArrayST`, that can be used for
  defining implementation for `uniformByteArrayM`

Author: lehins

.github/workflows/ci.yaml

@@ -108,7 +108,7 @@ jobs:
             stack-yaml: stack-old.yaml
           - resolver: lts-18
             ghc: '8.10.7'
-            stack-yaml: stack.yaml
+            stack-yaml: stack.lts-18.yaml
           - resolver: lts-19
             ghc: '9.0.2'
             stack-yaml: stack-coveralls.yaml
@@ -271,8 +271,10 @@ jobs:
         githubToken: ${{ github.token }}
         install: |
           apt-get update -y
-          apt-get install -y ghc libghc-tasty-smallcheck-dev libghc-tasty-hunit-dev libghc-splitmix-dev curl
+          apt-get install -y git ghc libghc-tasty-smallcheck-dev libghc-tasty-hunit-dev libghc-splitmix-dev curl
         run: |
+          git clone https://github.com/Bodigrim/data-array-byte
+          cp -r data-array-byte/Data .
           ghc --version
           ghc --make -isrc:test-legacy -o legacy test-legacy/Legacy.hs
           ./legacy

CHANGELOG.md

@@ -1,5 +1,20 @@
 # 1.3.0
 
+* Add compatibility with recently added `ByteArray` to `base`:
+  [#153](https://github.com/haskell/random/pull/153)
+  * Switch to using `ByteArray` for type class implementation instead of
+    `ShortByteString`
+  * Add `unsafeUniformFillMutableByteArray` to `RandomGen` and a helper function
+    `defaultUnsafeUniformFillMutableByteArray` that makes implementation
+    for most instances easier.
+  * Add `uniformByteArray`, `uniformByteString` and `uniformFillMutableByteArray`
+  * Add `uniformByteArrayM` to `StatefulGen`
+  * Add `uniformByteStringM` and `uniformShortByteStringM`
+  * Deprecate `uniformShortByteString` in favor of `uniformShortByteStringM` for
+    consistent naming and a future plan of removing it from `StatefulGen`
+    type class
+  * Expose a helper function `genByteArrayST`, that can be used for
+    defining implementation for `uniformByteArrayM`
 * Improve `FrozenGen` interface: [#149](https://github.com/haskell/random/pull/149)
   * Move `thawGen` from `FreezeGen` into the new `ThawGen` type class. Fixes an issue with
     an unlawful instance of `StateGen` for `FreezeGen`.

bench/Main.hs

@@ -25,6 +25,7 @@ seed = 1337
 main :: IO ()
 main = do
   let !sz = 100000
+      genLengths :: ([Int], StdGen)
       genLengths =
         -- create 5000 small lengths that are needed for ShortByteString generation
         runStateGen (mkStdGen 2020) $ \g -> replicateM 5000 (uniformRM (16 + 1, 16 + 7) g)
@@ -243,16 +244,20 @@ main = do
                 sz
             ]
           ]
-        , bgroup "ShortByteString"
-          [ env (pure genLengths) $ \ ~(ns, gen) ->
-              bench "genShortByteString" $
-              nfIO $ runStateGenT gen $ \g -> mapM (`uniformShortByteString` g) ns
-          ]
-        , bgroup "ByteString"
-          [ env getStdGen $ \gen ->
-              bench "genByteString 100MB" $
-              nfIO $ runStateGenT gen $ uniformByteStringM 100000000
-          ]
+        ]
+      , bgroup "Bytes"
+        [ env (pure genLengths) $ \ ~(ns, gen) ->
+            bench "uniformShortByteStringM" $
+            nfIO $ runStateGenT gen $ \g -> mapM (`uniformShortByteStringM` g) ns
+        , env getStdGen $ \gen ->
+            bench "uniformByteStringM 100MB" $
+            nf (runStateGen gen . uniformByteStringM) (100 * 1024 * 1024)
+        , env getStdGen $ \gen ->
+            bench "uniformByteArray 100MB" $
+            nf (\n -> uniformByteArray False n gen) (100 * 1024 * 1024)
+        , env getStdGen $ \gen ->
+            bench "genByteString 100MB" $
+              nf (\k -> genByteString k gen) (100 * 1024 * 1024)
         ]
       ]
     ]

random.cabal

@@ -100,6 +100,8 @@ library
         deepseq >=1.1 && <2,
         mtl >=2.2 && <2.4,
         splitmix >=0.1 && <0.2
+    if impl(ghc < 9.4)
+      build-depends: data-array-byte
 
 test-suite legacy-test
     type:             exitcode-stdio-1.0

src/System/Random.hs

@@ -23,11 +23,15 @@ module System.Random
     RandomGen(..)
   , uniform
   , uniformR
-  , genByteString
   , Random(..)
   , Uniform
   , UniformRange
   , Finite
+  -- * Generators for sequences of pseudo-random bytes
+  , uniformByteArray
+  , uniformByteString
+  , uniformFillMutableByteArray
+  , genByteString
 
   -- ** Standard pseudo-random number generator
   , StdGen
@@ -199,6 +203,9 @@ uniformR r g = runStateGen g (uniformRM r)
 -- >>> unpack . fst . genByteString 10 $ pureGen
 -- [51,123,251,37,49,167,90,109,1,4]
 --
+-- /Note/ - This function is equivalet to `uniformByteString` and will be deprecated in
+-- the next major release.
+--
 -- @since 1.2.0
 genByteString :: RandomGen g => Int -> g -> (ByteString, g)
 genByteString n g = runStateGenST g (uniformByteStringM n)