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

work around getDirectoryContents not streaming lazily

Browse source
This commit is contained in:
Joey Hess 2014-07-04 17:59:26 -04:00
parent 1c036d08eb
commit c90e4e8778
Failed to extract signature
2 changed files with 45 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex/Journal.hs
View file

@ -77,7 +77,7 @@ getJournalFilesStale :: Annex [FilePath]
getJournalFilesStale = do
g <- gitRepo
fs <- liftIO $ catchDefaultIO [] $
getDirectoryContents $ gitAnnexJournalDir g
getDirectoryContents' $ gitAnnexJournalDir g
return $ filter (`notElem` [".", ".."]) fs
{- Checks if there are changes in the journal. -}