mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
git-annex/CmdLine/GitAnnex.hs

222 lines
5.3 KiB
Haskell
Raw Normal View History

make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
{- git-annex main program
-
sync, assistant, remotedaemon: Use ssh connection caching for git pushes and pulls. For sync, saves 1 ssh connection per remote. For remotedaemon, the same ssh connection that is already open to run git-annex-shell notifychanges is reused to pull from the remote. Only potential problem is that this also enables connection caching when the assistant syncs with a ssh remote. Including the sync it does when a network connection has just come up. In that case, cached ssh connections are likely to be stale, and so using them would hang. Until I'm sure such problems have been dealt with, this commit needs to stay on the remotecontrol branch, and not be merged to master. This commit was sponsored by Alexandre Dupas.
2014-04-12 19:59:34 +00:00
- Copyright 2010-2014 Joey Hess <joey@kitenet.net>
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
-
- Licensed under the GNU GPL version 3 or higher.
-}
Allow optionally configuring git-annex with -fEKG to enable awesome remote monitoring interfaceat http://localhost:4242/
2013-11-06 20:33:45 +00:00
{-# LANGUAGE CPP, OverloadedStrings #-}
Version build dependency on STM, and allow building without it, which disables the watch command.
2012-06-26 13:15:47 +00:00
reorganize some files and imports
2014-01-26 20:25:55 +00:00
module CmdLine.GitAnnex where
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
Add support for core.worktree, and fix support for GIT_WORK_TREE and GIT_DIR. The environment needs to override git-config. Changed when git config is read, and avoid rereading it once it's been read. chdir for both worktree settings.
2012-05-18 22:20:53 +00:00
import qualified Git.CurrentRepo
simplify
2011-01-07 06:15:10 +00:00
import CmdLine
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
import Command
sync, assistant, remotedaemon: Use ssh connection caching for git pushes and pulls. For sync, saves 1 ssh connection per remote. For remotedaemon, the same ssh connection that is already open to run git-annex-shell notifychanges is reused to pull from the remote. Only potential problem is that this also enables connection caching when the assistant syncs with a ssh remote. Including the sync it does when a network connection has just come up. In that case, cached ssh connections are likely to be stale, and so using them would hang. Until I'm sure such problems have been dealt with, this commit needs to stay on the remotecontrol branch, and not be merged to master. This commit was sponsored by Alexandre Dupas.
2014-04-12 19:59:34 +00:00
import Utility.Env
import Annex.Ssh
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
import qualified Command.Add
import qualified Command.Unannex
import qualified Command.Drop
import qualified Command.Move
import qualified Command.Copy
import qualified Command.Get
Add plumbing-level lookupkey command.
2013-12-15 18:02:23 +00:00
import qualified Command.LookupKey
Add plumbing-level lookupkey examinekey command. find --format: Added hashdirlower, hashdirmixed, keyname, and mtime format variables.
2013-12-15 18:46:29 +00:00
import qualified Command.ExamineKey
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
import qualified Command.FromKey
import qualified Command.DropKey
add transferkey command Used by the assistant, rather than copy, this is faster because it avoids using git ls-files, avoids checking the location log redundantly, and runs in oneshot mode, avoiding making a commit to the git-annex branch for every file transferred.
2012-08-24 21:23:58 +00:00
import qualified Command.TransferKey
implement transferkeys plumbing command
2013-03-19 20:58:36 +00:00
import qualified Command.TransferKeys
setpresentkey: A new plumbing-level command.
2014-12-29 19:16:40 +00:00
import qualified Command.SetPresentKey
rekey: New plumbing level command, can be used to change the keys used for files en masse.
2012-02-16 20:36:35 +00:00
import qualified Command.ReKey
add metadata command to get/set metadata Adds metadata log, and command. Note that unsetting field values seems to currently be broken. And in general this has had all of 2 minutes worth of testing. This commit was sponsored by Julien Lefrique.
2014-02-13 01:12:22 +00:00
import qualified Command.MetaData
add git annex view command (And a vpop command, which is still a bit buggy.) Still need to do vadd and vrm, though this also adds their documentation. Currently not very happy with the view log data serialization. I had to lose the TDFA regexps temporarily, so I can have Read/Show instances of View. I expect the view log format will change in some incompatable way later, probably adding last known refs for the parent branch to View or something like that. Anyway, it basically works, although it's a bit slow looking up the metadata. The actual git branch construction is about as fast as it can be using the current git plumbing. This commit was sponsored by Peter Hogg.
2014-02-18 21:38:23 +00:00
import qualified Command.View
add vadd command
2014-02-19 00:01:56 +00:00
import qualified Command.VAdd
add tip about metadata driven views (and more flexible view filtering) While writing this documentation, I realized that there needed to be a way to stay in a view like tag=* while adding a filter like tag=work that applies to the same field. So, there are really two ways a view can be refined. It can have a new "field=explicitvalue" filter added to it, which does not change the "shape" of the view, but narrows the files it shows. Or, it can have a new view added, which adds another level of subdirectories. So, added a vfilter command, which takes explicit values to add to the filter, and rejects changes that would change the shape of the view. And, made vadd only accept changes that change the shape of the view. And, changed the View data type slightly; now components that can match multiple metadata values can be visible, or not visible. This commit was sponsored by Stelian Iancu.
2014-02-19 19:10:18 +00:00
import qualified Command.VFilter
add git annex view command (And a vpop command, which is still a bit buggy.) Still need to do vadd and vrm, though this also adds their documentation. Currently not very happy with the view log data serialization. I had to lose the TDFA regexps temporarily, so I can have Read/Show instances of View. I expect the view log format will change in some incompatable way later, probably adding last known refs for the parent branch to View or something like that. Anyway, it basically works, although it's a bit slow looking up the metadata. The actual git branch construction is about as fast as it can be using the current git plumbing. This commit was sponsored by Peter Hogg.
2014-02-18 21:38:23 +00:00
import qualified Command.VPop
add vcycle command
2014-02-19 00:16:28 +00:00
import qualified Command.VCycle
better command name
2011-10-31 19:18:41 +00:00
import qualified Command.Reinject
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
import qualified Command.Fix
import qualified Command.Init
add describe subcommand
2011-03-03 21:21:00 +00:00
import qualified Command.Describe
started on initremote
2011-03-29 03:22:31 +00:00
import qualified Command.InitRemote
To enable an existing special remote, the new enableremote command must be used. The initremote command now is used only to create new special remotes.
2013-04-26 22:22:44 +00:00
import qualified Command.EnableRemote
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
import qualified Command.Fsck
add repair command
2013-10-23 16:21:59 +00:00
import qualified Command.Repair
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
import qualified Command.Unused
import qualified Command.DropUnused
addunused: New command, the opposite of dropunused, it relinks unused content into the git repository.
2012-05-02 18:59:05 +00:00
import qualified Command.AddUnused
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
import qualified Command.Unlock
import qualified Command.Lock
import qualified Command.PreCommit
import qualified Command.Find
findref: New command, like find but shows files in a specified git ref.
2014-04-17 22:41:24 +00:00
import qualified Command.FindRef
whereis: New subcommand to show where a file's content has gotten to.
2011-03-05 21:23:55 +00:00
import qualified Command.Whereis
rename remotes to list
2013-09-19 18:16:28 +00:00
import qualified Command.List
log: New command that displays the location log for file, showing each repository they were added to and removed from. This needs to run git log on the location log files to get at all past versions of the file, which tends to be a bit slow. It would be possible to make a version optimised for showing the location logs for every key. That would only need to run git log once, so would be faster, but it would need to process an enormous amount of data, so would not speed up the individual file case. In the future it would be nice to support log --format. log --json also doesn't work right yet.
2012-01-06 19:40:04 +00:00
import qualified Command.Log
add merge subcommand
2011-06-22 22:46:45 +00:00
import qualified Command.Merge
resolvemerge: New plumbing command that runs the automatic merge conflict resolver.
2014-07-11 20:45:18 +00:00
import qualified Command.ResolveMerge
rename status to info, and update docs
2013-11-07 16:45:59 +00:00
import qualified Command.Info
status: New subcommand to show info about an annex, including its size.
2011-05-17 01:18:34 +00:00
import qualified Command.Status
New migrate subcommand can be used to switch files to using a different backend, safely and with no duplication of content.
2011-01-08 19:54:14 +00:00
import qualified Command.Migrate
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
import qualified Command.Uninit
reinit: New command that can initialize a new reposotory using the configuration of a previously known repository. Useful if a repository got deleted and you want to clone it back the way it was.
2014-04-16 00:13:35 +00:00
import qualified Command.Reinit
global numcopies setting * numcopies: New command, sets global numcopies value that is seen by all clones of a repository. * The annex.numcopies git config setting is deprecated. Once the numcopies command is used to set the global number of copies, any annex.numcopies git configs will be ignored. * assistant: Make the prefs page set the global numcopies. This global numcopies setting is needed to let preferred content expressions operate on numcopies. It's also convenient, because typically if you want git-annex to preserve N copies of files in a repo, you want it to do that no matter which repo it's running in. Making it global avoids needing to warn the user about gotchas involving inconsistent annex.numcopies settings. (See changes to doc/numcopies.mdwn.) Added a new variety of git-annex branch log file, that holds only 1 value. Will probably be useful for other stuff later. This commit was sponsored by Nicolas Pouillard.
2014-01-20 20:47:56 +00:00
import qualified Command.NumCopies
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
import qualified Command.Trust
import qualified Command.Untrust
implement 3 level trust storage in trust.log
2011-01-26 19:37:16 +00:00
import qualified Command.Semitrust
dead: A command which says that a repository is gone for good and you don't want git-annex to mention it again.
2011-12-02 20:59:55 +00:00
import qualified Command.Dead
group, ungroup: New commands to indicate groups of repositories.
2012-10-01 19:12:04 +00:00
import qualified Command.Group
The "git annex content" command is renamed to "git annex wanted".
2013-10-28 18:08:38 +00:00
import qualified Command.Wanted
add schedule command Mostly because it gives me an excuse and a hook to document the schedule expression format.
2013-10-13 19:40:38 +00:00
import qualified Command.Schedule
group, ungroup: New commands to indicate groups of repositories.
2012-10-01 19:12:04 +00:00
import qualified Command.Ungroup
vicfg: New command, allows editing (or simply viewing) most of the repository configuration settings stored in the git-annex branch. Incomplete; I need to finish parsing and saving. This will also be used for editing transfer control expresssions. Removed the group display from the status output, I didn't really like that format, and vicfg can be used to see as well as edit rempository group membership.
2012-10-03 21:04:52 +00:00
import qualified Command.Vicfg
sync: New command that synchronises the local repository and default remote, by running git commit, pull, and push for you.
2011-12-10 00:27:22 +00:00
import qualified Command.Sync
mirror: New command, makes two repositories contain the same set of files. This is a simple approach for setting up a mirroring repository. It will work with any type of remotes. Mirror --from is more expensive than mirror --to in general. OTOH, mirror --from will get the file from any remote that has it, not only the named mirror remote. And if the named mirror remote is not the fastest available remote with a file, that can speed things up. It would be possible to make the assistant or watch command do a more dynamic mirroring, that didn't need to scan every time.
2013-08-20 19:46:35 +00:00
import qualified Command.Mirror
add the addurl command
2011-07-01 21:15:46 +00:00
import qualified Command.AddUrl
importfeed: git-annex becomes a podcatcher in 150 LOC
2013-07-28 19:27:36 +00:00
#ifdef WITH_FEED
import qualified Command.ImportFeed
#endif
rmurl: New command, removes one of the recorded urls for a file.
2013-04-22 21:18:53 +00:00
import qualified Command.RmUrl
import: New subcommand, pulls files from a directory outside the annex and adds them Use case for this was developed somewhere on the Transiberian Railroad.
2012-05-31 23:47:18 +00:00
import qualified Command.Import
new map subcommand, basically working Still todo: - add repos from uuid.log that were not directly found - group repos into their respective hosts - display inaccessible repos and broken remote connections in red - anonymize the url display somewhat, so the maps can be shared - use uuid info to tell when two apparently different repos are actually the same repo accessed in different ways
2011-02-03 22:55:12 +00:00
import qualified Command.Map
added direct and indirect commands
2012-12-13 19:44:56 +00:00
import qualified Command.Direct
import qualified Command.Indirect
add explicit upgrade command
2011-03-16 19:48:26 +00:00
import qualified Command.Upgrade
add forget command Works, more or less. --dead is not implemented, and so far a new branch is made, but keys no longer present anywhere are not scrubbed. git annex sync fails to push the synced/git-annex branch after a forget, because it's not a fast-forward of the existing synced branch. Could be fixed by making git-annex sync use assistant-style sync branches.
2013-08-28 20:38:03 +00:00
import qualified Command.Forget
proxy: for all your direct mode repository munging needs This allows bypassing the direct mode guard in a safe way to do all sorts of things including git revert, git mv, git checkout ... This commit was sponsored by the WikiMedia Foundation.
2014-11-12 19:41:15 +00:00
import qualified Command.Proxy
diffdriver: New git-annex command, to make git external diff drivers work with annexed files. Closes https://github.com/datalad/datalad/issues/18
2014-11-24 20:14:01 +00:00
import qualified Command.DiffDriver
undo command This commit was sponsored by Andrew Cant.
2014-11-13 20:41:21 +00:00
import qualified Command.Undo
Add version command to show git-annex version as well as repository version information.
2011-03-19 18:33:24 +00:00
import qualified Command.Version
add xmppgit command; roughed out xmpp push protocol and design
2012-11-06 04:52:35 +00:00
import qualified Command.Help
Version build dependency on STM, and allow building without it, which disables the watch command.
2012-06-26 13:15:47 +00:00
#ifdef WITH_ASSISTANT
watch subcommand So far this only handles auto-annexing new files that are created inside the repository while it's running. To make this really useful, it needs to at least: - notice deleted files and stage the deletion (tricky; there's a race with add..) - notice renamed files, auto-fix the symlink, and stage the new file location - periodically auto-commit staged changes - honor .gitignore, not adding files it excludes Also nice to have would be: - Somehow sync remotes, possibly using a push sync like dvcs-autosync does, so they are immediately updated. - Somehow get content that is unavilable. This is problimatic with inotify, since we only get an event once the user has tried (and failed) to read from the file. Perhaps instead, automatically copy content that is added out to remotes, with the goal of all repos eventually getting a copy, if df allows. - Drop files that have not been used lately, or meet some other criteria (as long as there's a copy elsewhere). - Perhaps automatically dropunused files that have been deleted, although I cannot see a way to do that, since by the time the inotify deletion event arrives, the file is deleted, and we cannot see what its symlink pointed to! Alternatievely, perhaps automatically do an expensive unused/dropunused cleanup process. Some of this probably needs the currently stateless threads to maintain a common state.
2012-04-12 21:29:43 +00:00
import qualified Command.Watch
add assistant command like watch, but more magic
2012-06-22 17:04:03 +00:00
import qualified Command.Assistant
git annex webapp now opens a browser to the webapp Also, starts the assistant if it wasn't already running.
2012-07-26 03:13:01 +00:00
#ifdef WITH_WEBAPP
import qualified Command.WebApp
#endif
add xmppgit command; roughed out xmpp push protocol and design
2012-11-06 04:52:35 +00:00
#ifdef WITH_XMPP
import qualified Command.XMPPGit
#endif
added git-annex remotedaemon So far, handling connecting to git-annex-shell notifychanges, and pulling immediately when a change is pushed to a remote. A little bit buggy (crashes after the first pull), but it already works! This commit was sponsored by Mark Sheppard.
2014-04-06 23:06:03 +00:00
import qualified Command.RemoteDaemon
Version build dependency on STM, and allow building without it, which disables the watch command.
2012-06-26 13:15:47 +00:00
#endif
testremote: New command to test uploads/downloads to a remote. This only performs some basic tests so far; no testing of chunking or resuming. Also, the existing encryption type of the remote is used; it would be good later to derive an encrypted and a non-encrypted version of the remote and test them both. This commit was sponsored by Joseph Liu.
2014-08-01 19:09:49 +00:00
import qualified Command.Test
Fix stub git-annex test support when built without tasty.
2014-08-24 01:46:08 +00:00
#ifdef WITH_TESTSUITE
fuzz tester
2013-05-23 23:00:46 +00:00
import qualified Command.FuzzTest
testremote: New command to test uploads/downloads to a remote. This only performs some basic tests so far; no testing of chunking or resuming. Also, the existing encryption type of the remote is used; it would be good later to derive an encrypted and a non-encrypted version of the remote and test them both. This commit was sponsored by Joseph Liu.
2014-08-01 19:09:49 +00:00
import qualified Command.TestRemote
disable test suite on Android Cannot get QuickCheck to install just now.
2013-02-27 19:59:31 +00:00
#endif
Allow optionally configuring git-annex with -fEKG to enable awesome remote monitoring interfaceat http://localhost:4242/
2013-11-06 20:33:45 +00:00
#ifdef WITH_EKG
import System.Remote.Monitoring
#endif
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
cmds :: [Command]
cmds = concat
doh't use "def" for command definitions, it conflicts with Data.Default.def
2014-10-14 18:20:10 +00:00
[ Command.Add.cmd
, Command.Get.cmd
, Command.Drop.cmd
, Command.Move.cmd
, Command.Copy.cmd
, Command.Unlock.cmd
, Command.Lock.cmd
, Command.Sync.cmd
, Command.Mirror.cmd
, Command.AddUrl.cmd
importfeed: git-annex becomes a podcatcher in 150 LOC
2013-07-28 19:27:36 +00:00
#ifdef WITH_FEED
doh't use "def" for command definitions, it conflicts with Data.Default.def
2014-10-14 18:20:10 +00:00
, Command.ImportFeed.cmd
importfeed: git-annex becomes a podcatcher in 150 LOC
2013-07-28 19:27:36 +00:00
#endif
doh't use "def" for command definitions, it conflicts with Data.Default.def
2014-10-14 18:20:10 +00:00
, Command.RmUrl.cmd
, Command.Import.cmd
, Command.Init.cmd
, Command.Describe.cmd
, Command.InitRemote.cmd
, Command.EnableRemote.cmd
, Command.Reinject.cmd
, Command.Unannex.cmd
, Command.Uninit.cmd
, Command.Reinit.cmd
, Command.PreCommit.cmd
, Command.NumCopies.cmd
, Command.Trust.cmd
, Command.Untrust.cmd
, Command.Semitrust.cmd
, Command.Dead.cmd
, Command.Group.cmd
, Command.Wanted.cmd
, Command.Schedule.cmd
, Command.Ungroup.cmd
, Command.Vicfg.cmd
, Command.LookupKey.cmd
, Command.ExamineKey.cmd
, Command.FromKey.cmd
, Command.DropKey.cmd
, Command.TransferKey.cmd
, Command.TransferKeys.cmd
setpresentkey: A new plumbing-level command.
2014-12-29 19:16:40 +00:00
, Command.SetPresentKey.cmd
doh't use "def" for command definitions, it conflicts with Data.Default.def
2014-10-14 18:20:10 +00:00
, Command.ReKey.cmd
, Command.MetaData.cmd
, Command.View.cmd
, Command.VAdd.cmd
, Command.VFilter.cmd
, Command.VPop.cmd
, Command.VCycle.cmd
, Command.Fix.cmd
, Command.Fsck.cmd
, Command.Repair.cmd
, Command.Unused.cmd
, Command.DropUnused.cmd
, Command.AddUnused.cmd
, Command.Find.cmd
, Command.FindRef.cmd
, Command.Whereis.cmd
, Command.List.cmd
, Command.Log.cmd
, Command.Merge.cmd
, Command.ResolveMerge.cmd
, Command.Info.cmd
, Command.Status.cmd
, Command.Migrate.cmd
, Command.Map.cmd
, Command.Direct.cmd
, Command.Indirect.cmd
, Command.Upgrade.cmd
, Command.Forget.cmd
proxy: for all your direct mode repository munging needs This allows bypassing the direct mode guard in a safe way to do all sorts of things including git revert, git mv, git checkout ... This commit was sponsored by the WikiMedia Foundation.
2014-11-12 19:41:15 +00:00
, Command.Proxy.cmd
diffdriver: New git-annex command, to make git external diff drivers work with annexed files. Closes https://github.com/datalad/datalad/issues/18
2014-11-24 20:14:01 +00:00
, Command.DiffDriver.cmd
undo command This commit was sponsored by Andrew Cant.
2014-11-13 20:41:21 +00:00
, Command.Undo.cmd
doh't use "def" for command definitions, it conflicts with Data.Default.def
2014-10-14 18:20:10 +00:00
, Command.Version.cmd
, Command.Help.cmd
Version build dependency on STM, and allow building without it, which disables the watch command.
2012-06-26 13:15:47 +00:00
#ifdef WITH_ASSISTANT
doh't use "def" for command definitions, it conflicts with Data.Default.def
2014-10-14 18:20:10 +00:00
, Command.Watch.cmd
, Command.Assistant.cmd
git annex webapp now opens a browser to the webapp Also, starts the assistant if it wasn't already running.
2012-07-26 03:13:01 +00:00
#ifdef WITH_WEBAPP
doh't use "def" for command definitions, it conflicts with Data.Default.def
2014-10-14 18:20:10 +00:00
, Command.WebApp.cmd
git annex webapp now opens a browser to the webapp Also, starts the assistant if it wasn't already running.
2012-07-26 03:13:01 +00:00
#endif
add xmppgit command; roughed out xmpp push protocol and design
2012-11-06 04:52:35 +00:00
#ifdef WITH_XMPP
doh't use "def" for command definitions, it conflicts with Data.Default.def
2014-10-14 18:20:10 +00:00
, Command.XMPPGit.cmd
add xmppgit command; roughed out xmpp push protocol and design
2012-11-06 04:52:35 +00:00
#endif
doh't use "def" for command definitions, it conflicts with Data.Default.def
2014-10-14 18:20:10 +00:00
, Command.RemoteDaemon.cmd
Version build dependency on STM, and allow building without it, which disables the watch command.
2012-06-26 13:15:47 +00:00
#endif
doh't use "def" for command definitions, it conflicts with Data.Default.def
2014-10-14 18:20:10 +00:00
, Command.Test.cmd
Fix stub git-annex test support when built without tasty.
2014-08-24 01:46:08 +00:00
#ifdef WITH_TESTSUITE
doh't use "def" for command definitions, it conflicts with Data.Default.def
2014-10-14 18:20:10 +00:00
, Command.FuzzTest.cmd
, Command.TestRemote.cmd
disable test suite on Android Cannot get QuickCheck to install just now.
2013-02-27 19:59:31 +00:00
#endif
make test suite link in git-annex's commands and run directly this way, test coverage works
2011-01-07 00:26:57 +00:00
]
header :: String
Per-command usage messages.
2013-03-27 17:51:24 +00:00
header = "git-annex command [option ...]"
simplify
2011-01-07 06:15:10 +00:00
run :: [String] -> IO ()
Allow optionally configuring git-annex with -fEKG to enable awesome remote monitoring interfaceat http://localhost:4242/
2013-11-06 20:33:45 +00:00
run args = do
#ifdef WITH_EKG
_ <- forkServer "localhost" 4242
#endif
support being run by ssh as ssh-askpass replacement To use, set GIT_ANNEX_SSHASKPASS to point to a fifo or regular file (FIFO is better, avoids touching disk or multiple readers) that contains the password. Then set SSH_ASKPASS=git-annex, and when ssh runs it, it will tell ssh the password. This is not yet used..
2014-04-29 22:08:10 +00:00
go envmodes
where
go [] = dispatch True args cmds gitAnnexOptions [] header Git.CurrentRepo.get
go ((v, a):rest) = maybe (go rest) a =<< getEnv v
envmodes =
[ (sshCachingEnv, runSshCaching args)
, (sshAskPassEnv, runSshAskPass)
]
Reference in a new issue Copy permalink