diff options
author | Joey Hess <joey@kitenet.net> | 2011-11-11 01:52:58 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-11-11 01:52:58 -0400 |
commit | 637b5feb45013f69f3aacbafeb796de666d3faa3 (patch) | |
tree | 17e5506c3715be46318d15dd76ec474641faffe2 /Annex/Content.hs | |
parent | b327227ba596d4fc5012138d03390c3eb861b808 (diff) |
lint
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) |