git-annex-shell mostly done now, only needs 2 more subcommands
This commit is contained in:
parent
7a52b34e06
commit
a5a302b77d
6 changed files with 130 additions and 55 deletions
27
Command/ConfigList.hs
Normal file
27
Command/ConfigList.hs
Normal file
|
@ -0,0 +1,27 @@
|
|||
{- git-annex command
|
||||
-
|
||||
- Copyright 2010 Joey Hess <joey@kitenet.net>
|
||||
-
|
||||
- Licensed under the GNU GPL version 3 or higher.
|
||||
-}
|
||||
|
||||
module Command.ConfigList where
|
||||
|
||||
import Control.Monad.State (liftIO)
|
||||
|
||||
import Annex
|
||||
import Command
|
||||
import qualified GitRepo as Git
|
||||
|
||||
command :: [Command]
|
||||
command = [Command "configlist" paramNothing seek
|
||||
"outputs relevant git configuration"]
|
||||
|
||||
seek :: [CommandSeek]
|
||||
seek = [withNothing start]
|
||||
|
||||
start :: CommandStartNothing
|
||||
start = do
|
||||
g <- Annex.gitRepo
|
||||
liftIO $ Git.run g ["config", "--list"]
|
||||
return Nothing
|
Loading…
Add table
Add a link
Reference in a new issue