diff options
author | Joey Hess <joey@kitenet.net> | 2014-10-14 14:20:10 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-10-14 14:20:10 -0400 |
commit | 5a3f41a50d1fd94a18fcced49722f3087e36aec6 (patch) | |
tree | a053b3ce52c8d6693ef3f70b188a818cfc89dc85 /Command/Help.hs | |
parent | 9f5b8638a990f8d163afaf62e15331515fdcb21f (diff) |
doh't use "def" for command definitions, it conflicts with Data.Default.def
Diffstat (limited to 'Command/Help.hs')
-rw-r--r-- | Command/Help.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/Command/Help.hs b/Command/Help.hs index 7998ed796..fc1206e03 100644 --- a/Command/Help.hs +++ b/Command/Help.hs @@ -21,8 +21,8 @@ import qualified Command.Fsck import System.Console.GetOpt -def :: [Command] -def = [noCommit $ noRepo startNoRepo $ dontCheck repoExists $ +cmd :: [Command] +cmd = [noCommit $ noRepo startNoRepo $ dontCheck repoExists $ command "help" paramNothing seek SectionQuery "display help"] seek :: CommandSeek @@ -47,15 +47,15 @@ showGeneralHelp :: IO () showGeneralHelp = putStrLn $ unlines [ "The most frequently 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 + [ Command.Init.cmd + , Command.Add.cmd + , Command.Drop.cmd + , Command.Get.cmd + , Command.Move.cmd + , Command.Copy.cmd + , Command.Sync.cmd + , Command.Whereis.cmd + , Command.Fsck.cmd ] , "Run 'git-annex' for a complete command list." , "Run 'git-annex command --help' for help on a specific command." |