summaryrefslogtreecommitdiff
path: root/Command/Sync.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-03-04 14:44:11 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-03-04 14:44:11 -0400
commit8ad7398e29c9bd2ec25274bcca808650778e1457 (patch)
tree3270b8ac0af959c33b35ed46a021686fb277675d /Command/Sync.hs
parent1503a5f45e30a509a764a4c415920969f3aa5cab (diff)
fix innaccurate comment
Diffstat (limited to 'Command/Sync.hs')
-rw-r--r--Command/Sync.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/Sync.hs b/Command/Sync.hs
index b69b9a020..103f93e32 100644
--- a/Command/Sync.hs
+++ b/Command/Sync.hs
@@ -71,8 +71,9 @@ seek rs = do
prepMerge
-- There may not be a branch checked out until after the commit,
- -- or perhaps after it gets merged from the remote.
- -- So only look it up once it's needed, and if once there is a
+ -- or perhaps after it gets merged from the remote, or perhaps
+ -- never.
+ -- So only look it up once it's needed, and once there is a
-- branch, cache it.
mvar <- liftIO newEmptyMVar
let getbranch = ifM (liftIO $ isEmptyMVar mvar)