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

one more hlint

Browse source
This commit is contained in:
Joey Hess 2011-09-20 23:26:35 -04:00
parent 9f6b7935dd
commit 6dc23b889e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Branch.hs
View file

@ -331,7 +331,7 @@ getJournalFilesRaw = do
g <- Annex.gitRepo g <- Annex.gitRepo
fs <- liftIO $ catch (getDirectoryContents $ gitAnnexJournalDir g) fs <- liftIO $ catch (getDirectoryContents $ gitAnnexJournalDir g)
(const $ return []) (const $ return [])
return $ filter (\f -> f /= "." && f /= "..") fs return $ filter (`notElem` [".", ".."]) fs
{- Stages all journal files into the index, and returns True if the index {- Stages all journal files into the index, and returns True if the index
- was modified. -} - was modified. -}