Commit 530091ec authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Fix usage message, swap program and sub-command names

parent 2557bc2d
...@@ -157,7 +157,7 @@ optionVerbose get set = ...@@ -157,7 +157,7 @@ optionVerbose get set =
(fmap (Just . showForCabal) . flagToList)) (fmap (Just . showForCabal) . flagToList))
usagePackages :: String -> String -> String usagePackages :: String -> String -> String
usagePackages pname name = usagePackages name pname =
"Usage: " ++ pname ++ " " ++ name ++ " [FLAGS]\n" "Usage: " ++ pname ++ " " ++ name ++ " [FLAGS]\n"
++ " or: " ++ pname ++ " " ++ name ++ " [PACKAGES]\n\n" ++ " or: " ++ pname ++ " " ++ name ++ " [PACKAGES]\n\n"
++ "Flags for " ++ name ++ ":" ++ "Flags for " ++ name ++ ":"
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment