summaryrefslogtreecommitdiff
path: root/Command/Help.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-10-14 14:20:10 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-10-14 14:20:10 -0400
commit5a3f41a50d1fd94a18fcced49722f3087e36aec6 (patch)
treea053b3ce52c8d6693ef3f70b188a818cfc89dc85 /Command/Help.hs
parent9f5b8638a990f8d163afaf62e15331515fdcb21f (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.hs22
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."