[commit: Cabal] : Use new top handler, should get better error messages (c07e5b1)

[Ian Lynagh]

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

On branch  : 

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

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

commit c07e5b1503320bff352585fb76991058c0321e14
Author: Duncan Coutts <duncan at haskell.org>
Date:   Sun May 31 19:03:18 2009 +0000

    Use new top handler, should get better error messages

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

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

diff --git a/cabal-install/Main.hs b/cabal-install/Main.hs
index d58341d..23d0f90 100644
--- a/cabal-install/Main.hs
+++ b/cabal-install/Main.hs
@@ -60,7 +60,8 @@ import Distribution.Simple.Compiler
 import Distribution.Simple.Program (defaultProgramConfiguration)
 import Distribution.Simple.Command
 import Distribution.Simple.Configure (configCompilerAux)
-import Distribution.Simple.Utils (cabalVersion, die, intercalate)
+import Distribution.Simple.Utils
+         ( cabalVersion, die, topHandler, intercalate )
 import Distribution.Text
          ( display )
 import Distribution.Verbosity as Verbosity
@@ -83,7 +84,7 @@ main = getArgs >>= mainWorker
 
 mainWorker :: [String] -> IO ()
 mainWorker ("win32selfupgrade":args) = win32SelfUpgradeAction args
-mainWorker args =
+mainWorker args = topHandler $
   case commandsRun globalCommand commands args of
     CommandHelp   help                 -> printGlobalHelp help
     CommandList   opts                 -> printOptionsList opts