diff options
Diffstat (limited to 'Annex/Content.hs')
| -rw-r--r-- | Annex/Content.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 7586bb96f..83839ea13 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -91,7 +91,7 @@ openForLock file writelock = bracket_ prep cleanup go - have to fiddle with permissions to open for an - exclusive lock. -} forwritelock a = - when writelock $ whenM (doesFileExist file) $ a + when writelock $ whenM (doesFileExist file) a prep = forwritelock $ allowWrite file cleanup = forwritelock $ preventWrite file @@ -251,7 +251,7 @@ fromAnnex key dest = withObjectLoc key $ \(dir, file) -> liftIO $ do moveBad :: Key -> Annex FilePath moveBad key = do src <- fromRepo $ gitAnnexLocation key - bad <- fromRepo $ gitAnnexBadDir + bad <- fromRepo gitAnnexBadDir let dest = bad </> takeFileName src liftIO $ do createDirectoryIfMissing True (parentDir dest) |