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

bigfix: doubled shell escape

Browse source
This commit is contained in:
Joey Hess 2010-11-06 21:12:45 -04:00
parent 8156af90ed
commit 55b92860ce
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remotes.hs
View file

@ -94,8 +94,7 @@ inAnnex r key = do
Annex.eval a (Core.inAnnex key) Annex.eval a (Core.inAnnex key)
checkremote = do checkremote = do
Core.showNote ("checking " ++ Git.repoDescribe r ++ "...") Core.showNote ("checking " ++ Git.repoDescribe r ++ "...")
inannex <- runCmd r "test" inannex <- runCmd r "test" ["-e", annexLocation r key]
[ "-e", (shellEscape $ annexLocation r key)]
-- XXX Note that ssh failing and the file not existing -- XXX Note that ssh failing and the file not existing
-- are not currently differentiated. -- are not currently differentiated.
return $ Right inannex return $ Right inannex