mateamt/src/Util/Random.hs

9 lines
237 B
Haskell
Raw Normal View History

2022-04-16 14:40:10 +00:00
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)