summaryrefslogtreecommitdiff
path: root/Assistant/Sync.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-31 02:34:03 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-31 02:34:03 -0400
commitacec36711090577752532a39f472e734e6b67fdb (patch)
tree6a3a5de0ec092e19c28464f4e2703fda9571b264 /Assistant/Sync.hs
parent661eda766a8aa5c548ad89d8360bd4219eea138b (diff)
where indentation
Diffstat (limited to 'Assistant/Sync.hs')
-rw-r--r--Assistant/Sync.hs18
1 files changed, 9 insertions, 9 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs
index ccc359672..c2c81c57d 100644
--- a/Assistant/Sync.hs
+++ b/Assistant/Sync.hs
@@ -133,15 +133,15 @@ pushToRemotes now notifypushes remotes = do
, Param $ refspec Annex.Branch.name
, Param $ refspec branch
] g
- where
- {- Push to refs/synced/uuid/branch; this
- - avoids cluttering up the branch display. -}
- refspec b = concat
- [ s
- , ":"
- , "refs/synced/" ++ fromUUID u ++ "/" ++ s
- ]
- where s = show $ Git.Ref.base b
+ where
+ {- Push to refs/synced/uuid/branch; this
+ - avoids cluttering up the branch display. -}
+ refspec b = concat
+ [ s
+ , ":"
+ , "refs/synced/" ++ fromUUID u ++ "/" ++ s
+ ]
+ where s = show $ Git.Ref.base b
{- Manually pull from remotes and merge their branches. -}
manualPull :: Maybe Git.Ref -> [Remote] -> Assistant ([Bool], Bool)