[commit: Cabal] master: Add --build-reports install flag (1a5d988)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/1a5d988127aecf3f2fae28d2ce8036ce0325cf6a

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

commit 1a5d988127aecf3f2fae28d2ce8036ce0325cf6a
Author: Duncan Coutts <duncan at haskell.org>
Date:   Fri Aug 8 12:39:20 2008 +0000

    Add --build-reports install flag

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

 cabal-install/Distribution/Client/Setup.hs |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/cabal-install/Distribution/Client/Setup.hs b/cabal-install/Distribution/Client/Setup.hs
index 2ddecba..4278630 100644
--- a/cabal-install/Distribution/Client/Setup.hs
+++ b/cabal-install/Distribution/Client/Setup.hs
@@ -204,6 +204,7 @@ data InstallFlags = InstallFlags {
     installRootCmd      :: Flag String,
     installCabalVersion :: Flag Version,
     installLogFile      :: Flag FilePath,
+    installBuildReports :: Flag Bool,
     installSymlinkBinDir:: Flag FilePath
   }
 
@@ -215,6 +216,7 @@ defaultInstallFlags = InstallFlags {
     installRootCmd      = mempty,
     installCabalVersion = mempty,
     installLogFile      = mempty,
+    installBuildReports = Flag False,
     installSymlinkBinDir= mempty
   }
 
@@ -255,6 +257,11 @@ installCommand = configureCommand {
           installLogFile (\v flags -> flags { installLogFile = v })
           (reqArg' "FILE" toFlag flagToList)
 
+      , option [] ["build-reports"]
+          "Generate detailed build reports. (overrides --log-builds)"
+          installBuildReports (\v flags -> flags { installBuildReports = v })
+          trueArg
+
       ] ++ case showOrParseArgs of      -- TODO: remove when "cabal install" avoids
           ParseArgs ->
             option [] ["only"]
@@ -274,6 +281,7 @@ instance Monoid InstallFlags where
     installRootCmd      = combine installRootCmd,
     installCabalVersion = combine installCabalVersion,
     installLogFile      = combine installLogFile,
+    installBuildReports = combine installBuildReports,
     installSymlinkBinDir= combine installSymlinkBinDir
   }
     where combine field = field a `mappend` field b