summaryrefslogtreecommitdiff
path: root/Annex
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-07-04 17:59:26 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-07-04 17:59:26 -0400
commitf33d1d93fa01e16d8b5fa65fb55aafc5114746ac (patch)
tree7d80df3be9a46fe898076812f57f7cf47b9f63a4 /Annex
parent7d8d873873424326026dc15914787648e83564f4 (diff)
work around getDirectoryContents not streaming lazily
Diffstat (limited to 'Annex')
-rw-r--r--Annex/Journal.hs2
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. -}