git-annex/Command/Semitrust.hs

{- git-annex command
 -
 - Copyright 2010 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU AGPL version 3 or higher.
 -}

module Command.Semitrust where

import Command
import Types.TrustLevel
import Command.Trust (trustCommand)

cmd :: Command
cmd = withAnnexOptions [jsonOptions] $
	command "semitrust" SectionSetup 
		"return repository to default trust level"
		(paramRepeating paramRepository)
		(withParams' seek completeRemotes)

seek :: CmdParams -> CommandSeek
seek = trustCommand "semitrust" SemiTrusted
implement 3 level trust storage in trust.log 2011-01-26 19:37:16 +00:00			`{- git-annex command`
			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2010 Joey Hess <id@joeyh.name>`
implement 3 level trust storage in trust.log 2011-01-26 19:37:16 +00:00			`-`
update licenses from GPL to AGPL This does not change the overall license of the git-annex program, which was already AGPL due to a number of sources files being AGPL already. Legally speaking, I'm adding a new license under which these files are now available; I already released their current contents under the GPL license. Now they're dual licensed GPL and AGPL. However, I intend for all my future changes to these files to only be released under the AGPL license, and I won't be tracking the dual licensing status, so I'm simply changing the license statement to say it's AGPL. (In some cases, others wrote parts of the code of a file and released it under the GPL; but in all cases I have contributed a significant portion of the code in each file and it's that code that is getting the AGPL license; the GPL license of other contributors allows combining with AGPL code.) 2019-03-13 19:48:14 +00:00			`- Licensed under the GNU AGPL version 3 or higher.`
implement 3 level trust storage in trust.log 2011-01-26 19:37:16 +00:00			`-}`

			`module Command.Semitrust where`

			`import Command`
refactor 2014-02-20 19:12:35 +00:00			`import Types.TrustLevel`
			`import Command.Trust (trustCommand)`
implement 3 level trust storage in trust.log 2011-01-26 19:37:16 +00:00
started converting to use optparse-applicative This is a work in progress. It compiles and is able to do basic command dispatch, including git autocorrection, while using optparse-applicative for the core commandline parsing. * Many commands are temporarily disabled before conversion. * Options are not wired in yet. * cmdnorepo actions don't work yet. Also, removed the [Command] list, which was only used in one place. 2015-07-08 16:33:27 +00:00			`cmd :: Command`
expire, trust et al, dead, describe: Support --json and --json-error-messages For expire, the normal output is unchanged, but the --json output includes the uuid in machine parseable form. Which could be very useful for this somewhat obscure command. That needed ActionItemUUID to be implemented, which seemed like a lot of work, but then --- I had been going to skip implementing them for trust, untrust, dead, semitrust, and describe, but putting the uuid in the json is useful information, it tells what uuid git-annex picked given the input. It was not hard to support these once ActionItemUUID was implemented. Sponsored-By: the NIH-funded NICEMAN (ReproNim TR&D3) project 2023-05-05 19:29:49 +00:00			`cmd = withAnnexOptions [jsonOptions] $`
			`command "semitrust" SectionSetup`
			`"return repository to default trust level"`
Tab completion of many commands like info and trust now includes remotes Especially useful with proxied remotes and clusters, where the user may not be entirely familiar with the name and can learn by tab completion. 2024-06-30 16:39:18 +00:00			`(paramRepeating paramRepository)`
			`(withParams' seek completeRemotes)`
implement 3 level trust storage in trust.log 2011-01-26 19:37:16 +00:00
convert all commands to work with optparse-applicative Still no options though. 2015-07-08 19:08:02 +00:00			`seek :: CmdParams -> CommandSeek`
refactor 2014-02-20 19:12:35 +00:00			`seek = trustCommand "semitrust" SemiTrusted`