git-annex/Command/Untrust.hs

{- git-annex command
 -
 - Copyright 2010 Joey Hess <joey@kitenet.net>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Command.Untrust where

import Common.Annex
import Command
import qualified Remote
import Logs.Trust

def :: [Command]
def = [command "untrust" (paramRepeating paramRemote) seek
	SectionSetup "do not trust a repository"]

seek :: [CommandSeek]
seek = [withWords start]

start :: [String] -> CommandStart
start ws = do
	let name = unwords ws
	showStart "untrust" name
	u <- Remote.nameToUUID name
	next $ perform u

perform :: UUID -> CommandPerform
perform uuid = do
	trustSet uuid UnTrusted
	next $ return True
forgot to add these 2010-12-28 21:44:55 +00:00			`{- git-annex command`
			`-`
			`- Copyright 2010 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

			`module Command.Untrust where`

rename 2011-10-05 20:02:51 +00:00			`import Common.Annex`
forgot to add these 2010-12-28 21:44:55 +00:00			`import Command`
converted several commands to use Remote only move and map still to convert 2011-03-27 20:55:43 +00:00			`import qualified Remote`
reorganize log modules no code changes 2011-10-15 20:21:08 +00:00			`import Logs.Trust`
forgot to add these 2010-12-28 21:44:55 +00:00
clean up check selection code This new approach allows filtering out checks from the default set that are not appropriate for a command, rather than having to list every check that is appropriate. It also reduces some boilerplate. Haskell does not define Eq for functions, so I had to go a long way around with each check having a unique id. Meh. 2011-10-29 19:19:05 +00:00			`def :: [Command]`
			`def = [command "untrust" (paramRepeating paramRemote) seek`
add section metadata to all commands Not yet used .. mindless train work. 2013-03-24 22:28:21 +00:00			`SectionSetup "do not trust a repository"]`
refactor in preparation for adding a git-annex-shell command 2010-12-30 19:06:26 +00:00
rename some stuff and prepare to break out more into Command/* 2010-12-30 18:19:16 +00:00			`seek :: [CommandSeek]`
better multiword parameter handling This way, individual words as entered on the command line are available to commands. 2011-05-16 16:25:54 +00:00			`seek = [withWords start]`
forgot to add these 2010-12-28 21:44:55 +00:00
remove command type definitions These were a mistake, they make the type signatures harder to read and less flexible. The CommandSeek, CommandStart, CommandPerform, and CommandCleanup types were a good idea, but composing them with the parameters expected is going too far. 2011-09-15 20:50:49 +00:00			`start :: [String] -> CommandStart`
improve bare repo handing Many more commands can work in bare repos now, thanks to the git-annex branch. 2011-06-22 22:32:41 +00:00			`start ws = do`
better multiword parameter handling This way, individual words as entered on the command line are available to commands. 2011-05-16 16:25:54 +00:00			`let name = unwords ws`
forgot to add these 2010-12-28 21:44:55 +00:00			`showStart "untrust" name`
converted several commands to use Remote only move and map still to convert 2011-03-27 20:55:43 +00:00			`u <- Remote.nameToUUID name`
refactor some boilerplate 2011-05-15 06:02:46 +00:00			`next $ perform u`
forgot to add these 2010-12-28 21:44:55 +00:00
converted several commands to use Remote only move and map still to convert 2011-03-27 20:55:43 +00:00			`perform :: UUID -> CommandPerform`
			`perform uuid = do`
implement 3 level trust storage in trust.log 2011-01-26 19:37:16 +00:00			`trustSet uuid UnTrusted`
refactor some boilerplate 2011-05-15 06:02:46 +00:00			`next $ return True`