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

fix

Browse source
This commit is contained in:
Joey Hess 2013-05-25 17:55:31 -04:00
parent ce0ee2aa44
commit 377bc7bbb7
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Command/FuzzTest.hs
View file

@ -222,11 +222,11 @@ existingFile n top = maybe (return Nothing) (go . toFilePath) =<< existingDir
if null dirs if null dirs
then return Nothing then return Nothing
else do else do
n <- getStdRandom $ randomR (0, length dirs - 1) i <- getStdRandom $ randomR (0, length dirs - 1)
existingFile (n - 1) (top </> dirs !! n) existingFile (n - 1) (top </> dirs !! i)
else do else do
n <- getStdRandom $ randomR (0, length files - 1) i <- getStdRandom $ randomR (0, length files - 1)
return $ Just $ FuzzFile $ top </> dir </> files !! n return $ Just $ FuzzFile $ top </> dir </> files !! i
existingDir :: IO (Maybe FuzzDir) existingDir :: IO (Maybe FuzzDir)
existingDir = do existingDir = do