diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-04 17:59:26 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-04 17:59:26 -0400 |
| commit | f33d1d93fa01e16d8b5fa65fb55aafc5114746ac (patch) | |
| tree | 7d80df3be9a46fe898076812f57f7cf47b9f63a4 /Annex/Journal.hs | |
| parent | 7d8d873873424326026dc15914787648e83564f4 (diff) | |
work around getDirectoryContents not streaming lazily
Diffstat (limited to 'Annex/Journal.hs')
| -rw-r--r-- | Annex/Journal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Journal.hs b/Annex/Journal.hs index 4196a8225..406155750 100644 --- a/Annex/Journal.hs +++ b/Annex/Journal.hs @@ -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. -} |