aboutsummaryrefslogtreecommitdiff
path: root/Command/Dead.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-20 15:12:35 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-20 15:12:35 -0400
commitcfdcf25d13eaa2a6a8b2601a50fda4370645c639 (patch)
tree2974ca42fe2262805a96f588033ba4ffd8ecc1ee /Command/Dead.hs
parent1c8c95915c3e234a3c8d24a4f5218a913239e15f (diff)
refactor
Diffstat (limited to 'Command/Dead.hs')
-rw-r--r--Command/Dead.hs27
1 files changed, 3 insertions, 24 deletions
diff --git a/Command/Dead.hs b/Command/Dead.hs
index 13aa74bff..f9e5c2e27 100644
--- a/Command/Dead.hs
+++ b/Command/Dead.hs
@@ -7,34 +7,13 @@
module Command.Dead where
-import Common.Annex
import Command
-import qualified Remote
-import Logs.Trust
-import Logs.Group
-
-import qualified Data.Set as S
+import Types.TrustLevel
+import Command.Trust (trustCommand)
def :: [Command]
def = [command "dead" (paramRepeating paramRemote) seek
SectionSetup "hide a lost repository"]
seek :: CommandSeek
-seek = withWords start
-
-start :: [String] -> CommandStart
-start ws = do
- let name = unwords ws
- showStart "dead" name
- u <- Remote.nameToUUID name
- next $ perform u
-
-perform :: UUID -> CommandPerform
-perform uuid = do
- markDead uuid
- next $ return True
-
-markDead :: UUID -> Annex ()
-markDead uuid = do
- trustSet uuid DeadTrusted
- groupSet uuid S.empty
+seek = trustCommand "dead" DeadTrusted