9 lines
237 B
Haskell
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)
|