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

simplify evals

Browse source
This commit is contained in:
Joey Hess 2010-10-31 23:24:16 -04:00
commit 00d4c7cd01
3 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remotes.hs
View file

@ -93,8 +93,7 @@ inAnnex r key = do
-- run a local check by making an Annex monad
-- using the remote
a <- Annex.new r []
(result, _) <- Annex.run a (Core.inAnnex key)
return result
Annex.eval a (Core.inAnnex key)
remote = do
-- remote check via ssh in and test
boolSystem "ssh" [Git.urlHost r, "test -e " ++