fishy commit

This commit is contained in:
Joey Hess 2012-06-14 00:01:48 -04:00
parent 89dad12b35
commit e0095b0bdc
7 changed files with 9 additions and 9 deletions

View file

@ -242,7 +242,7 @@ cleanObjectLoc key = do
removeparents file n = do
let dir = parentDir file
maybe noop (const $ removeparents dir (n-1))
=<< catchMaybeIO (removeDirectory dir)
<=< catchMaybeIO $ removeDirectory dir
{- Removes a key's file from .git/annex/objects/ -}
removeAnnex :: Key -> Annex ()