setpresentkey: A new plumbing-level command.
This commit is contained in:
parent
589a048a7d
commit
43dc7f678f
5 changed files with 50 additions and 4 deletions
36
Command/SetPresentKey.hs
Normal file
36
Command/SetPresentKey.hs
Normal file
|
@ -0,0 +1,36 @@
|
|||
{- git-annex command
|
||||
-
|
||||
- Copyright 2014 Joey Hess <joey@kitenet.net>
|
||||
-
|
||||
- Licensed under the GNU GPL version 3 or higher.
|
||||
-}
|
||||
|
||||
module Command.SetPresentKey where
|
||||
|
||||
import Common.Annex
|
||||
import Command
|
||||
import qualified Annex
|
||||
import Logs.Location
|
||||
import Logs.Presence.Pure
|
||||
import Types.Key
|
||||
|
||||
cmd :: [Command]
|
||||
cmd = [noCommit $ command "setpresentkey" (paramPair paramKey "[1|0]") seek
|
||||
SectionPlumbing "change records of where key is present"]
|
||||
|
||||
seek :: CommandSeek
|
||||
seek = withWords start
|
||||
|
||||
start :: [String] -> CommandStart
|
||||
start (ks:us:vs:[]) = do
|
||||
showStart' "setpresentkey" k Nothing
|
||||
next $ perform k (toUUID us) status
|
||||
where
|
||||
k = fromMaybe (error "bad key") (file2key ks)
|
||||
status = fromMaybe (error "bad value") (parseStatus vs)
|
||||
start _ = error "Wrong number of parameters"
|
||||
|
||||
perform :: Key -> UUID -> LogStatus -> CommandPerform
|
||||
perform k u status = next $ do
|
||||
logChange k u status
|
||||
return True
|
Loading…
Add table
Add a link
Reference in a new issue