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

move remote removal into separate module

Browse source 
This allows using Git.Remote w/o needing to have Git.BuildVersion, which
requires configure. It will simplify github-backup when these libraries are
used there.
This commit is contained in:
Joey Hess 2014-10-27 11:24:21 -04:00
parent 9ca3e14481
commit 20a497b181
5 changed files with 33 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/WebApp/Gpg.hs
View file

@ -14,6 +14,7 @@ import Assistant.Gpg
import Utility.Gpg
import qualified Git.Command
import qualified Git.Remote
import qualified Git.Remote.Remove
import qualified Git.Construct
import qualified Annex.Branch
import qualified Git.GCrypt
@ -76,7 +77,7 @@ getGCryptRemoteName u repoloc = do
(M.lookup "name" <=< M.lookup u) <$> readRemoteLog
, return Nothing
)
void $ inRepo $ Git.Remote.remove tmpremote
void $ inRepo $ Git.Remote.Remove.remove tmpremote
maybe missing return mname
where
missing = error $ "Cannot find configuration for the gcrypt remote at " ++ repoloc