Add Uniform instance for Seed

haskell · Feb 4, 2024 · 8aea80e · 8aea80e
1 parent 6da645b
commit 8aea80e
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/System/Random/Seed.hs b/src/System/Random/Seed.hs
@@ -199,6 +199,8 @@ instance SeedGen SM32.SMGen where
         writeWord64LE mba 0 w64
         freezeMutableByteArray mba
 
+instance SeedGen g => Uniform (Seed g) where
+  uniformM = fmap Seed . uniformByteArrayM False (seedSize @g)
 
 -- | Get the expected size of the `Seed` in number bytes
 --