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)