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

typoe and debug info

Browse source
This commit is contained in:
Joey Hess 2013-10-01 19:10:45 -04:00
parent bddfbef8be
commit 0ede6b7def
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/GCrypt.hs
View file

@ -164,7 +164,7 @@ gCryptSetup mu c = go $ M.lookup "gitrepo" c
{- Run a git fetch and a push to the git repo in order to get {- Run a git fetch and a push to the git repo in order to get
- its gcrypt-id set up, so that later git annex commands - its gcrypt-id set up, so that later git annex commands
- will use the remote as a ggcrypt remote. The fetch is - will use the remote as a gcrypt remote. The fetch is
- needed if the repo already exists; the push is needed - needed if the repo already exists; the push is needed
- if the repo has not yet been initialized by gcrypt. -} - if the repo has not yet been initialized by gcrypt. -}
void $ inRepo $ Git.Command.runBool void $ inRepo $ Git.Command.runBool
@ -186,7 +186,7 @@ gCryptSetup mu c = go $ M.lookup "gitrepo" c
method <- setupRepo gcryptid =<< inRepo (Git.Construct.fromRemoteLocation gitrepo) method <- setupRepo gcryptid =<< inRepo (Git.Construct.fromRemoteLocation gitrepo)
gitConfigSpecialRemote u c' "gcrypt" (fromAccessMethod method) gitConfigSpecialRemote u c' "gcrypt" (fromAccessMethod method)
return (c', u) return (c', u)
else error "uuid mismatch" else error $ "uuid mismatch " ++ show (u, mu, gcryptid)
{- Sets up the gcrypt repository. The repository is either a local {- Sets up the gcrypt repository. The repository is either a local
- repo, or it is accessed via rsync directly, or it is accessed over ssh - repo, or it is accessed via rsync directly, or it is accessed over ssh