diff options
Diffstat (limited to 'src/Verismith/Utils.hs')
-rw-r--r-- | src/Verismith/Utils.hs | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/src/Verismith/Utils.hs b/src/Verismith/Utils.hs index 1f5dd01..0faf585 100644 --- a/src/Verismith/Utils.hs +++ b/src/Verismith/Utils.hs @@ -1,29 +1,29 @@ -{-| -Module : Verismith -Description : Verismith -Copyright : (c) 2020, Yann Herklotz -License : GPL-3 -Maintainer : yann [at] yannherklotz [dot] com -Stability : experimental -Portability : POSIX --} - +-- | +-- Module : Verismith +-- Description : Verismith +-- Copyright : (c) 2020, Yann Herklotz +-- License : GPL-3 +-- Maintainer : yann [at] yannherklotz [dot] com +-- Stability : experimental +-- Portability : POSIX module Verismith.Utils - (generateByteString) + ( generateByteString, + ) where -import System.Random (mkStdGen, newStdGen, randoms) import Data.ByteString (ByteString, pack) +import System.Random (mkStdGen, newStdGen, randoms) generateByteString :: (Maybe Int) -> Int -> Int -> IO [ByteString] generateByteString mseed size n = do - fmap pack . chunksOf size . take (size * n) . randoms <$> - case mseed of - Just seed' -> return $ mkStdGen seed' - Nothing -> newStdGen + fmap pack . chunksOf size . take (size * n) . randoms + <$> case mseed of + Just seed' -> return $ mkStdGen seed' + Nothing -> newStdGen where chunksOf i _ | i <= 0 = error $ "chunksOf, number must be positive, got " ++ show i chunksOf i xs = repeatedly (splitAt i) xs repeatedly _ [] = [] repeatedly f as = b : repeatedly f as' - where (b, as') = f as + where + (b, as') = f as |