diff options
author | Joey Hess <joey@kitenet.net> | 2013-11-21 15:40:23 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-11-21 15:40:23 -0400 |
commit | a1b925b0f0e9c0e3e7679a0a42186db1748ebe5d (patch) | |
tree | 7c6b05c0b1980e3c2818cd0ee0e45f348c438607 /Git | |
parent | 63d3b3a3f62fee851ded6bdc72dadd904908605b (diff) | |
download | git-repair-a1b925b0f0e9c0e3e7679a0a42186db1748ebe5d.tar.gz |
remove old TODO
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) |