Use commandProgramName
authorJoachim Breitner <mail@joachim-breitner.de>
Thu, 16 Sep 2010 18:08:50 +0000 (18:08 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Thu, 16 Sep 2010 18:08:50 +0000 (18:08 +0000)
src/IPatch/Apply.hs
src/IPatch/Help.lhs
src/IPatch/Split.hs

index 9913121..eb0a312 100644 (file)
@@ -22,12 +22,7 @@ module IPatch.Apply where
 import Control.Monad ( when )
 import System.Exit ( exitWith, ExitCode(ExitSuccess) )
 
-import Darcs.Commands
-    ( DarcsCommand(DarcsCommand, commandAdvancedOptions,
-                   commandArgdefaults, commandBasicOptions, commandCommand,
-                   commandDescription, commandExtraArgHelp, commandExtraArgs,
-                   commandGetArgPossibilities, commandHelp, commandName,
-                   commandPrereq) )
+import Darcs.Commands ( DarcsCommand(..) )
 import Darcs.Arguments ( DarcsFlag, fixFilePathOrStd, listFiles )
 import Darcs.Repository
     ( amNotInRepository, applyToWorking, withRepoLock )
@@ -65,7 +60,8 @@ applyDescription :: String
 applyDescription = "Apply a diff file interactively."
 
 apply :: DarcsCommand
-apply = DarcsCommand {commandName = "apply",
+apply = DarcsCommand {commandProgramName = "ipatch",
+                      commandName = "apply",
                       commandHelp = applyHelp,
                       commandDescription = applyDescription,
                       commandExtraArgs = 1,
index a3f2ec9..3b042c5 100644 (file)
@@ -67,7 +67,8 @@ helpHelp =
  "`ipatch help foo' prints detailed help about the ipatch command foo.\n"
 
 help :: DarcsCommand
-help = DarcsCommand {commandName = "help",
+help = DarcsCommand {commandProgramName = "ipatch",
+                     commandName = "help",
                      commandHelp = helpHelp,
                      commandDescription = helpDescription,
                      commandExtraArgs = -1,
index f885ad4..6d34d34 100644 (file)
@@ -27,12 +27,7 @@ import Control.Monad.Fix ( fix )
 import System.Exit ( exitWith, ExitCode(ExitSuccess) )
 import System.FilePath ( (</>) )
 
-import Darcs.Commands
-    ( DarcsCommand(DarcsCommand, commandAdvancedOptions,
-                   commandArgdefaults, commandBasicOptions, commandCommand,
-                   commandDescription, commandExtraArgHelp, commandExtraArgs,
-                   commandGetArgPossibilities, commandHelp, commandName,
-                   commandPrereq) )
+import Darcs.Commands ( DarcsCommand(..) )
 import Darcs.Arguments ( DarcsFlag, fixFilePathOrStd, listFiles )
 import Darcs.Repository ( amNotInRepository )
 import Darcs.External ( execPipeIgnoreError )
@@ -73,7 +68,8 @@ splitDescription :: String
 splitDescription = "Split a diff file interactively."
 
 split :: DarcsCommand
-split = DarcsCommand {commandName = "split",
+split = DarcsCommand {commandProgramName = "ipatch",
+                      commandName = "split",
                       commandHelp = splitHelp,
                       commandDescription = splitDescription,
                       commandExtraArgs = 1,