mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

converted several commands to use Remote

Browse source 
only move and map still to convert
This commit is contained in:
Joey Hess 2011-03-27 16:55:43 -04:00
parent 3470260a85
commit 30f427700f
7 changed files with 58 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Command/Describe.hs
View file

@ -7,10 +7,8 @@
module Command.Describe where
import Command
import qualified GitRepo as Git
import qualified Remotes
import qualified Remote
import UUID
import Messages
import qualified Command.Init
@ -30,12 +28,10 @@ start params = notBareRepo $ do
_ -> error "Specify a repository and a description."
showStart "describe" name
Remotes.readConfigs
r <- Remotes.byName name
return $ Just $ perform r description
u <- Remote.nameToUUID name
return $ Just $ perform u description
perform :: Git.Repo -> String -> CommandPerform
perform repo description = do
u <- getUUID repo
perform :: UUID -> String -> CommandPerform
perform u description = do
describeUUID u description
return $ Just $ Command.Init.cleanup

13
Command/Semitrust.hs
View file

@ -8,8 +8,7 @@
module Command.Semitrust where
import Command
import qualified GitRepo as Git
import qualified Remotes
import qualified Remote
import UUID
import Trust
import Messages
@ -24,12 +23,10 @@ seek = [withString start]
start :: CommandStartString
start name = notBareRepo $ do
showStart "semitrust" name
Remotes.readConfigs
r <- Remotes.byName name
return $ Just $ perform r
u <- Remote.nameToUUID name
return $ Just $ perform u
perform :: Git.Repo -> CommandPerform
perform repo = do
uuid <- getUUID repo
perform :: UUID -> CommandPerform
perform uuid = do
trustSet uuid SemiTrusted
return $ Just $ return True

13
Command/Trust.hs
View file

@ -8,8 +8,7 @@
module Command.Trust where
import Command
import qualified GitRepo as Git
import qualified Remotes
import qualified Remote
import Trust
import UUID
import Messages
@ -24,12 +23,10 @@ seek = [withString start]
start :: CommandStartString
start name = notBareRepo $ do
showStart "trust" name
Remotes.readConfigs
r <- Remotes.byName name
return $ Just $ perform r
u <- Remote.nameToUUID name
return $ Just $ perform u
perform :: Git.Repo -> CommandPerform
perform repo = do
uuid <- getUUID repo
perform :: UUID -> CommandPerform
perform uuid = do
trustSet uuid Trusted
return $ Just $ return True

13
Command/Untrust.hs
View file

@ -8,8 +8,7 @@
module Command.Untrust where
import Command
import qualified GitRepo as Git
import qualified Remotes
import qualified Remote
import UUID
import Trust
import Messages
@ -24,12 +23,10 @@ seek = [withString start]
start :: CommandStartString
start name = notBareRepo $ do
showStart "untrust" name
Remotes.readConfigs
r <- Remotes.byName name
return $ Just $ perform r
u <- Remote.nameToUUID name
return $ Just $ perform u
perform :: Git.Repo -> CommandPerform
perform repo = do
uuid <- getUUID repo
perform :: UUID -> CommandPerform
perform uuid = do
trustSet uuid UnTrusted
return $ Just $ return True