Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…
Cannot retrieve contributors at this time
32 lines (25 sloc) 619 Bytes
{- git-annex command
- Copyright 2010 Joey Hess <>
- Licensed under the GNU GPL version 3 or higher.
module Command.Trust where
import Common.Annex
import Command
import qualified Remote
import Logs.Trust
def :: [Command]
def = [command "trust" (paramRepeating paramRemote) seek "trust a repository"]
seek :: [CommandSeek]
seek = [withWords start]
start :: [String] -> CommandStart
start ws = do
let name = unwords ws
showStart "trust" name
u <- Remote.nameToUUID name
next $ perform u
perform :: UUID -> CommandPerform
perform uuid = do
trustSet uuid Trusted
next $ return True
Jump to Line
Something went wrong with that request. Please try again.