From 406b650a1ca2b0f097366ebcede42c8a646df8df Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 6 Mar 2013 22:18:44 -0400 Subject: assistant: Fix syncing after XMPP pairing. A missing uuid broke this, and also caused a UI glitch in the webapp's remote list. --- Assistant/XMPP/Git.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Assistant/XMPP/Git.hs') diff --git a/Assistant/XMPP/Git.hs b/Assistant/XMPP/Git.hs index bdb68eea1..0a452154b 100644 --- a/Assistant/XMPP/Git.hs +++ b/Assistant/XMPP/Git.hs @@ -25,6 +25,8 @@ import Git import qualified Git.Branch import Locations.UserConfig import qualified Types.Remote as Remote +import qualified Remote as Remote +import Remote.List import Utility.FileMode import Utility.Shell @@ -53,7 +55,10 @@ makeXMPPGitRemote buddyname jid u = do remote <- liftAnnex $ addRemote $ makeGitRemote buddyname $ gitXMPPLocation jid liftAnnex $ storeUUID (remoteConfig (Remote.repo remote) "uuid") u - syncNewRemote remote + liftAnnex $ void remoteListRefresh + remote' <- liftAnnex $ fromMaybe (error "failed to add remote") + <$> Remote.byName (Just buddyname) + syncNewRemote remote' return True {- Pushes over XMPP, communicating with a specific client. -- cgit v1.2.3