mateamt/src/Util/Random.hs
2022-04-16 16:40:10 +02:00

9 lines
237 B
Haskell

module Util.Random where
import qualified Data.ByteString as BS
import System.Random.Stateful (uniformByteStringM, newIOGenM, mkStdGen)
randomString :: IO BS.ByteString
randomString = uniformByteStringM 32 =<< newIOGenM (mkStdGen 23)