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

fix innaccurate comment

Browse source
This commit is contained in:
Joey Hess 2015-03-04 14:44:11 -04:00
parent b504b6238d
commit 79b6500111
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Command/Sync.hs
View file

@ -71,8 +71,9 @@ seek rs = do
prepMerge prepMerge
-- There may not be a branch checked out until after the commit, -- There may not be a branch checked out until after the commit,
-- or perhaps after it gets merged from the remote. -- or perhaps after it gets merged from the remote, or perhaps
-- So only look it up once it's needed, and if once there is a -- never.
-- So only look it up once it's needed, and once there is a
-- branch, cache it. -- branch, cache it.
mvar <- liftIO newEmptyMVar mvar <- liftIO newEmptyMVar
let getbranch = ifM (liftIO $ isEmptyMVar mvar) let getbranch = ifM (liftIO $ isEmptyMVar mvar)