diff options
Diffstat (limited to 'Annex/Content.hs')
| -rw-r--r-- | Annex/Content.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 3e3e95868..0bce5633f 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -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 () |