git-annex/Command/Semitrust.hs

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

module Command.Semitrust where

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

cmd :: Command
cmd = command "semitrust" SectionSetup 
	"return repository to default trust level"
	(paramRepeating paramRemote) (withParams seek)

seek :: CmdParams -> CommandSeek
seek = trustCommand "semitrust" SemiTrusted
implement 3 level trust storage in trust.log 2011-01-26 15:37:16 -04:00			`{- git-annex command`
			`-`
update my email address and homepage url 2015-01-21 12:50:09 -04:00			`- Copyright 2010 Joey Hess <id@joeyh.name>`
implement 3 level trust storage in trust.log 2011-01-26 15:37:16 -04:00			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

			`module Command.Semitrust where`

			`import Command`
refactor 2014-02-20 15:12:35 -04:00			`import Types.TrustLevel`
			`import Command.Trust (trustCommand)`
implement 3 level trust storage in trust.log 2011-01-26 15:37:16 -04: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 12:33:27 -04:00			`cmd :: Command`
convert all commands to work with optparse-applicative Still no options though. 2015-07-08 15:08:02 -04:00			`cmd = command "semitrust" SectionSetup`
			`"return repository to default trust level"`
			`(paramRepeating paramRemote) (withParams seek)`
implement 3 level trust storage in trust.log 2011-01-26 15:37:16 -04:00
convert all commands to work with optparse-applicative Still no options though. 2015-07-08 15:08:02 -04:00			`seek :: CmdParams -> CommandSeek`
refactor 2014-02-20 15:12:35 -04:00			`seek = trustCommand "semitrust" SemiTrusted`