diff options
Diffstat (limited to 'Command/Semitrust.hs')
-rw-r--r-- | Command/Semitrust.hs | 19 |
1 files changed, 3 insertions, 16 deletions
diff --git a/Command/Semitrust.hs b/Command/Semitrust.hs index 26ce6961b..edba27346 100644 --- a/Command/Semitrust.hs +++ b/Command/Semitrust.hs @@ -7,26 +7,13 @@ module Command.Semitrust where -import Common.Annex import Command -import qualified Remote -import Logs.Trust +import Types.TrustLevel +import Command.Trust (trustCommand) def :: [Command] def = [command "semitrust" (paramRepeating paramRemote) seek SectionSetup "return repository to default trust level"] seek :: CommandSeek -seek = withWords start - -start :: [String] -> CommandStart -start ws = do - let name = unwords ws - showStart "semitrust" name - u <- Remote.nameToUUID name - next $ perform u - -perform :: UUID -> CommandPerform -perform uuid = do - trustSet uuid SemiTrusted - next $ return True +seek = trustCommand "semitrust" SemiTrusted |