mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove dead code

Browse source
This commit is contained in:
Joey Hess 2014-02-08 14:52:25 -04:00
parent 92edee0b04
commit 93319f0f6f
1 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Command/FuzzTest.hs
View file

@ -146,13 +146,6 @@ genFuzzFile = do
genFuzzDir :: IO FuzzDir genFuzzDir :: IO FuzzDir
genFuzzDir = mkFuzzDir <$> (getStdRandom (randomR (1,16)) :: IO Int) genFuzzDir = mkFuzzDir <$> (getStdRandom (randomR (1,16)) :: IO Int)
localFile :: FilePath -> Bool
localFile f
| isAbsolute f = False
| ".." `isInfixOf` f = False
| ".git" `isPrefixOf` f = False
| otherwise = True
data TimeStampedFuzzAction data TimeStampedFuzzAction
= Started UTCTime FuzzAction = Started UTCTime FuzzAction
| Finished UTCTime Bool | Finished UTCTime Bool