Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal On branch :
http://hackage.haskell.org/trac/ghc/changeset/f806b14ff9e0b113afe8aa322a24bbf24b71d250 >--------------------------------------------------------------- commit f806b14ff9e0b113afe8aa322a24bbf24b71d250 Author: Duncan Coutts <[email protected]> Date: Mon May 10 03:27:36 2010 +0000 Misc minor tweaks in Main >--------------------------------------------------------------- cabal-install/Main.hs | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/cabal-install/Main.hs b/cabal-install/Main.hs index 2629817..29158e4 100644 --- a/cabal-install/Main.hs +++ b/cabal-install/Main.hs @@ -11,7 +11,7 @@ -- Entry point to the default cabal-install front-end. ----------------------------------------------------------------------------- -module Main where +module Main (main) where import Distribution.Client.Setup ( GlobalFlags(..), globalCommand, globalRepos @@ -112,9 +112,7 @@ mainWorker args = topHandler $ putStr $ "\nYou can edit the cabal configuration file to set defaults:\n" ++ " " ++ configFile ++ "\n" printOptionsList = putStr . unlines - printErrors errs = do - putStr (concat (intersperse "\n" errs)) - exitFailure + printErrors errs = die $ concat (intersperse "\n" errs) printNumericVersion = putStrLn $ display Paths_cabal_install.version printVersion = putStrLn $ "cabal-install version " ++ display Paths_cabal_install.version @@ -351,6 +349,8 @@ initAction :: InitFlags -> [String] -> GlobalFlags -> IO () initAction flags _extraArgs _globalFlags = do initCabal flags +-- | See 'Distribution.Client.Install.withWin32SelfUpgrade' for details. +-- win32SelfUpgradeAction :: [String] -> IO () win32SelfUpgradeAction (pid:path:rest) = Win32SelfUpgrade.deleteOldExeFile verbosity (read pid) path _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
