[commit: packages/Cabal] ghc-head: Improve the 'get' command's --help docs a bit (2591b91)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/Cabal

On branch  : ghc-head
Link       : http://git.haskell.org/?p=packages/Cabal.git;a=commit;h=2591b91bf7524733d9c4d3d6a4003e2fc55900ff

>---------------------------------------------------------------

commit 2591b91bf7524733d9c4d3d6a4003e2fc55900ff
Author: Duncan Coutts <duncan at community.haskell.org>
Date:   Wed Jun 12 20:59:47 2013 +0100

    Improve the 'get' command's --help docs a bit


>---------------------------------------------------------------

2591b91bf7524733d9c4d3d6a4003e2fc55900ff
 cabal-install/Distribution/Client/Setup.hs |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/cabal-install/Distribution/Client/Setup.hs b/cabal-install/Distribution/Client/Setup.hs
index 7f0b481..c56cd5c 100644
--- a/cabal-install/Distribution/Client/Setup.hs
+++ b/cabal-install/Distribution/Client/Setup.hs
@@ -635,7 +635,11 @@ getCommand :: CommandUI GetFlags
 getCommand = CommandUI {
     commandName         = "get",
     commandSynopsis     = "Gets a package's source code.",
-    commandDescription  = Nothing,
+    commandDescription  = Just $ \_ ->
+          "Creates a local copy of a package's source code. By default it gets "
+       ++ "the source\ntarball and unpacks it in a local subdirectory. "
+       ++ "Alternatively, with -s it will\nget the code from the source "
+       ++ "repository specified by the package.\n",
     commandUsage        = usagePackages "get",
     commandDefaultFlags = mempty,
     commandOptions      = \_ -> [
@@ -647,7 +651,7 @@ getCommand = CommandUI {
          (reqArgFlag "PATH")
 
        ,option "s" ["source-repository"]
-         "Fork the package's source repository."
+         "Copy the package's source repository (ie git clone, darcs get, etc as appropriate)."
          getSourceRepository (\v flags -> flags { getSourceRepository = v })
         (optArg "[head|this|...]" (readP_to_E (const "invalid source-repository")
                                               (fmap (toFlag . Just) parse))