60 lines
1.4 KiB
Haskell
60 lines
1.4 KiB
Haskell
{- git-annex command
|
|
-
|
|
- Copyright 2012 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Command.Help where
|
|
|
|
import Common.Annex
|
|
import Command
|
|
import qualified Command.Init
|
|
import qualified Command.Add
|
|
import qualified Command.Drop
|
|
import qualified Command.Get
|
|
import qualified Command.Move
|
|
import qualified Command.Copy
|
|
import qualified Command.Sync
|
|
import qualified Command.Whereis
|
|
import qualified Command.Fsck
|
|
import GitAnnex.Options
|
|
|
|
import System.Console.GetOpt
|
|
|
|
def :: [Command]
|
|
def = [noCommit $ noRepo showGeneralHelp $ dontCheck repoExists $
|
|
command "help" paramNothing seek SectionUtility "display help"]
|
|
|
|
seek :: [CommandSeek]
|
|
seek = [withWords start]
|
|
|
|
start :: [String] -> CommandStart
|
|
start ["options"] = do
|
|
liftIO showCommonOptions
|
|
stop
|
|
start _ = do
|
|
liftIO showGeneralHelp
|
|
stop
|
|
|
|
showCommonOptions :: IO ()
|
|
showCommonOptions = putStrLn $ usageInfo "Common options:" options
|
|
|
|
showGeneralHelp :: IO ()
|
|
showGeneralHelp = putStrLn $ unlines
|
|
[ "The most commonly used git-annex commands are:"
|
|
, unlines $ map cmdline $ concat
|
|
[ Command.Init.def
|
|
, Command.Add.def
|
|
, Command.Drop.def
|
|
, Command.Get.def
|
|
, Command.Move.def
|
|
, Command.Copy.def
|
|
, Command.Sync.def
|
|
, Command.Whereis.def
|
|
, Command.Fsck.def
|
|
]
|
|
, "Run git-annex without any options for a complete command list."
|
|
]
|
|
where
|
|
cmdline c = "\t" ++ cmdname c ++ "\t" ++ cmddesc c
|