Add support for random-1.3

Author: lehins

cuddle.cabal

@@ -81,7 +81,7 @@ library
     ordered-containers ^>=0.2.4,
     parser-combinators ^>=1.3,
     prettyprinter ^>=1.7.1,
-    random <1.3,
+    random >=1.2,
     regex-tdfa ^>=1.3.2,
     scientific ^>=0.3.8,
     text >=2.0.2 && <2.2,

src/Codec/CBOR/Cuddle/CBOR/Gen.hs

@@ -12,7 +12,6 @@
 -- | Generate example CBOR given a CDDL specification
 module Codec.CBOR.Cuddle.CBOR.Gen (generateCBORTerm, generateCBORTerm') where
 
-import qualified Control.Monad.State.Strict as MTL
 import Capability.Reader
 import Capability.Sink (HasSink)
 import Capability.Source (HasSource, MonadState (..))
@@ -34,6 +33,7 @@ import Codec.CBOR.Write qualified as CBOR
 import Control.Monad (join, replicateM, (<=<))
 import Control.Monad.Reader (Reader, runReader)
 import Control.Monad.State.Strict (StateT, runStateT)
+import Control.Monad.State.Strict qualified as MTL
 import Data.Bifunctor (second)
 import Data.ByteString (ByteString)
 import Data.ByteString.Base16 qualified as Base16
@@ -54,6 +54,11 @@ import System.Random.Stateful (
   randomM,
   uniformByteStringM,
  )
+#if MIN_VERSION_random(1,3,0)
+import System.Random.Stateful (
+  SplitGen (..)
+  )
+#endif
 
 --------------------------------------------------------------------------------
 -- Generator infrastructure
@@ -81,9 +86,21 @@ instance RandomGen g => RandomGen (GenState g) where
   genWord16 = withRandomSeed genWord16
   genWord32 = withRandomSeed genWord32
   genWord64 = withRandomSeed genWord64
-  split s =
-    case split (randomSeed s) of
-      (gen', gen) -> (s {randomSeed = gen'}, s {randomSeed = gen})
+#if MIN_VERSION_random(1,3,0)
+  split = error "Split was deprecated and should no longer used. Use `splitGen` instead"
+#else
+  split = splitGenStateWith split
+#endif
+
+#if MIN_VERSION_random(1,3,0)
+instance SplitGen g => SplitGen (GenState g) where
+  splitGen = splitGenStateWith splitGen
+#endif
+
+splitGenStateWith :: (g -> (g, g)) -> GenState g -> (GenState g, GenState g)
+splitGenStateWith f s =
+  case f (randomSeed s) of
+    (gen', gen) -> (s {randomSeed = gen'}, s {randomSeed = gen})
 
 withRandomSeed :: (t -> (a, g)) -> GenState t -> (a, GenState g)
 withRandomSeed f s =