[commit: Cabal] master: Add command listing support (d757ac7)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/d757ac766c39d1120921292146fccd312b559157

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

commit d757ac766c39d1120921292146fccd312b559157
Author: Duncan Coutts <duncan at haskell.org>
Date:   Mon Dec 17 18:59:12 2007 +0000

    Add command listing support
    first step to shell command line completion

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

 cabal-install/Main.hs |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/cabal-install/Main.hs b/cabal-install/Main.hs
index 16a893e..57b6ba0 100644
--- a/cabal-install/Main.hs
+++ b/cabal-install/Main.hs
@@ -43,17 +43,20 @@ mainWorker :: Args -> IO ()
 mainWorker args = 
   case commandsRun globalCommand commands args of
     CommandHelp   help                 -> printHelp help
+    CommandList   opts                 -> printOptionsList opts
     CommandErrors errs                 -> printErrors errs
     CommandReadyToGo (flags, commandParse)  ->
       case commandParse of
         _ | fromFlag (globalVersion flags)        -> printVersion
           | fromFlag (globalNumericVersion flags) -> printNumericVersion
         CommandHelp     help           -> printHelp help
+        CommandList     opts           -> printOptionsList opts
         CommandErrors   errs           -> printErrors errs
         CommandReadyToGo action        -> action
 
   where
     printHelp help = getProgName >>= putStr . help
+    printOptionsList = putStr . unlines
     printErrors errs = do
       putStr (concat (intersperse "\n" errs))
       exitWith (ExitFailure 1)