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

avoid doing anything if new and old sanitized git remote name are the same

Browse source
This commit is contained in:
Joey Hess 2013-01-14 18:42:15 -04:00
parent 5a9f8acb99
commit 7efdab3852
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Assistant/WebApp/Configurators/Edit.hs
View file

@ -24,6 +24,7 @@ import Types.StandardGroups
import qualified Git import qualified Git
import qualified Git.Command import qualified Git.Command
import qualified Git.Config import qualified Git.Config
import Git.Remote
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Map as M import qualified Data.Map as M
@ -64,7 +65,7 @@ setRepoConfig uuid mremote oldc newc = do
RepoGroupCustom s -> groupSet uuid $ S.fromList $ words s RepoGroupCustom s -> groupSet uuid $ S.fromList $ words s
when (repoSyncable oldc /= repoSyncable newc) $ when (repoSyncable oldc /= repoSyncable newc) $
changeSyncable mremote (repoSyncable newc) changeSyncable mremote (repoSyncable newc)
when (isJust mremote && repoName oldc /= repoName newc) $ do when (isJust mremote && makeLegalName (T.unpack $ repoName oldc) /= makeLegalName (T.unpack $ repoName newc)) $ do
runAnnex undefined $ do runAnnex undefined $ do
name <- fromRepo $ uniqueRemoteName (T.unpack $ repoName newc) 0 name <- fromRepo $ uniqueRemoteName (T.unpack $ repoName newc) 0
{- git remote rename expects there to be a {- git remote rename expects there to be a