diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-19 14:55:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-19 14:55:34 -0400 |
| commit | 57ab2130132c016790afe800a28c6fd88a5fca7b (patch) | |
| tree | f275b1883e219953a6132ef9b6da54a2c3577b42 /Command | |
| parent | ade0216bd08c2f9c1ed10c1c2274fd5b071c9c93 (diff) | |
new section for metadata
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/MetaData.hs | 2 | ||||
| -rw-r--r-- | Command/VAdd.hs | 2 | ||||
| -rw-r--r-- | Command/VPop.hs | 2 | ||||
| -rw-r--r-- | Command/View.hs | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/Command/MetaData.hs b/Command/MetaData.hs index 5608701f1..23a9bc2b3 100644 --- a/Command/MetaData.hs +++ b/Command/MetaData.hs @@ -18,7 +18,7 @@ import Data.Time.Clock.POSIX def :: [Command] def = [withOptions [setOption] $ command "metadata" paramPaths seek - SectionUtility "sets metadata of a file"] + SectionMetaData "sets metadata of a file"] setOption :: Option setOption = Option ['s'] ["set"] (ReqArg mkmod "FIELD[+-]=VALUE") "set metadata" diff --git a/Command/VAdd.hs b/Command/VAdd.hs index e766f3939..d7dee9fb7 100644 --- a/Command/VAdd.hs +++ b/Command/VAdd.hs @@ -15,7 +15,7 @@ import Command.View (paramView, parseViewParam, checkoutViewBranch) def :: [Command] def = [notBareRepo $ notDirect $ - command "vadd" paramView seek SectionUtility "refine current view"] + command "vadd" paramView seek SectionMetaData "refine current view"] seek :: CommandSeek seek = withWords start diff --git a/Command/VPop.hs b/Command/VPop.hs index baa52a98f..706a522f8 100644 --- a/Command/VPop.hs +++ b/Command/VPop.hs @@ -18,7 +18,7 @@ import Command.View (checkoutViewBranch) def :: [Command] def = [notBareRepo $ notDirect $ - command "vpop" (paramOptional paramNumber) seek SectionUtility + command "vpop" (paramOptional paramNumber) seek SectionMetaData "switch back to previous view"] seek :: CommandSeek diff --git a/Command/View.hs b/Command/View.hs index 5895ba08f..7cc908436 100644 --- a/Command/View.hs +++ b/Command/View.hs @@ -20,7 +20,7 @@ import Logs.View def :: [Command] def = [notBareRepo $ notDirect $ - command "view" paramView seek SectionUtility "enter a view branch"] + command "view" paramView seek SectionMetaData "enter a view branch"] seek :: CommandSeek seek = withWords start |