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

add loggedKeys

Browse source
This commit is contained in:
Joey Hess 2011-04-02 15:50:51 -04:00
parent 00b9a9a25d
commit f005a84e56
4 changed files with 50 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Content.hs
View file

@ -219,9 +219,9 @@ getKeysPresent' dir = do
then return []
else do
-- 2 levels of hashing
levela <- liftIO $ subdirContent dir
levelb <- liftIO $ mapM subdirContent levela
contents <- liftIO $ mapM subdirContent (concat levelb)
levela <- liftIO $ dirContents dir
levelb <- liftIO $ mapM dirContents levela
contents <- liftIO $ mapM dirContents (concat levelb)
files <- liftIO $ filterM present (concat contents)
return $ catMaybes $ map (fileKey . takeFileName) files
where
@ -231,7 +231,3 @@ getKeysPresent' dir = do
case result of
Right s -> return $ isRegularFile s
Left _ -> return False
subdirContent d = do
c <- getDirectoryContents d
return $ map (d </>) $ filter notcruft c
notcruft f = f /= "." && f /= ".."