diff options
-rw-r--r-- | Git/Destroyer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/Destroyer.hs b/Git/Destroyer.hs index aae1e9e..a208576 100644 --- a/Git/Destroyer.hs +++ b/Git/Destroyer.hs @@ -47,7 +47,7 @@ instance Arbitrary DamageAction where , AppendGarbage <$> garbage , PrependGarbage <$> garbage , CorruptByte - <$> nonNegative arbitrarySizedIntegral + <$> nonNegative arbitraryBoundedIntegral <*> arbitrary , ScrambleFileMode <$> nonNegative arbitrarySizedIntegral ] @@ -61,7 +61,7 @@ data FileSelector = FileSelector Int deriving (Read, Show) instance Arbitrary FileSelector where - arbitrary = FileSelector <$> nonNegative arbitrarySizedIntegral + arbitrary = FileSelector <$> nonNegative arbitraryBoundedIntegral selectFile :: [FilePath] -> FileSelector -> FilePath selectFile sortedfs (FileSelector n) = sortedfs !! (n `mod` length sortedfs) |