add section metadata to all commands

Not yet used .. mindless train work.
This commit is contained in:
Joey Hess 2013-03-24 18:28:21 -04:00
parent 2ea720abc9
commit cfd3b16fe1
59 changed files with 86 additions and 59 deletions

View file

@ -42,6 +42,7 @@ data Command = Command
, cmdname :: String
, cmdparamdesc :: String -- description of params for usage
, cmdseek :: [CommandSeek] -- seek stage
, cmdsection :: CommandSection
, cmddesc :: String -- description of command for usage
}
@ -55,3 +56,13 @@ instance Eq Command where
{- Order commands by name -}
instance Ord Command where
compare = comparing cmdname
{- The same sections are listed in doc/git-annex.mdwn -}
data CommandSection
= SectionCommon
| SectionSetup
| SectionMaintenance
| SectionQuery
| SectionUtility
| SectionPlumbing
deriving (Eq, Ord, Enum, Bounded)