From a1b925b0f0e9c0e3e7679a0a42186db1748ebe5d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 21 Nov 2013 15:40:23 -0400 Subject: remove old TODO --- Git/Destroyer.hs | 4 +--- 1 file changed, 1 insertion(+), 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) -- cgit v1.2.3