summaryrefslogtreecommitdiff
path: root/Git/Destroyer.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Git/Destroyer.hs')
-rw-r--r--Git/Destroyer.hs4
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)