diff options
Diffstat (limited to 'Git')
-rw-r--r-- | Git/Destroyer.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Git/Destroyer.hs b/Git/Destroyer.hs index f175515..f460600 100644 --- a/Git/Destroyer.hs +++ b/Git/Destroyer.hs @@ -73,9 +73,7 @@ instance Arbitrary FileSelector where selectFile :: [FilePath] -> FileSelector -> FilePath selectFile sortedfs (FileSelector n) = sortedfs !! (n `mod` length sortedfs) -{- Generates random Damage. - - - - TODO: sample' only seems to go up to 20 for files? -} +{- Generates random Damage. -} generateDamage :: IO [Damage] generateDamage = sample' (arbitrary :: Gen Damage) |