[commit: Cabal] master: Half-done build reporting stuff (ea714c2)

[Ian Lynagh]

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

On branch  : master

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

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

commit ea714c257b484437f0f552d13c17a58a79211b2e
Author:  <unknown>
Date:   Sat Apr 12 23:40:57 2008 +0000

    Half-done build reporting stuff

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

 cabal-install/Hackage/Reporting.hs |   89 ++++++++++++++++++++++++++++++++++++
 1 files changed, 89 insertions(+), 0 deletions(-)

diff --git a/cabal-install/Hackage/Reporting.hs b/cabal-install/Hackage/Reporting.hs
new file mode 100644
index 0000000..3c8e51f
--- /dev/null
+++ b/cabal-install/Hackage/Reporting.hs
@@ -0,0 +1,89 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  Hackage.Reporting
+-- Copyright   :  (c) David Waern 2008
+-- License     :  BSD-like
+--
+-- Maintainer  :  david.waern at gmail.com
+-- Stability   :  experimental
+-- Portability :  portable
+--
+-- Report data structure
+--
+-----------------------------------------------------------------------------
+module Hackage.Reporting where
+
+
+import Distribution.Package
+import Distribution.System
+import Distribution.Compiler
+import Distribution.Version
+import System.FilePath
+
+
+data BuildReport = BuildReport {
+  -- | The package this build report is about
+  buildPackage           :: PackageIdentifier,
+
+  -- | The OS and arch the package was built on
+  buildPlatform          :: (OS, String),
+
+  -- | The Haskell compiler (and maybe version) used
+  buildCompiler          :: (CompilerFlavor, Maybe Version),
+
+  -- | Configure outcome, did configure work ok?
+  buildOutcomeConfigure  :: Outcome ConfigurePhase
+}
+  deriving (Show, Read)
+
+
+data ConfigurePhase = ConfigurePhase {
+  -- | Which dependent packages we're using exactly
+  buildResolvedDeps    :: [PackageIdentifier],
+
+  -- | Which build tools where are using (with versions)
+  buildResolvedTools   :: [Dependency],
+
+  -- | Build outcome, did the build phase work ok?
+  buildOutcomeBuild    :: Outcome BuildPhase,
+
+  -- | Build outcome, did building the docs work?
+  buildOutcomeDocs     :: Outcome DocsPhase
+}
+  deriving (Show, Read)
+
+
+data BuildPhase = BuildPhase {
+  -- | Build outcome, did installing work ok?
+  buildOutcomeInstall  :: Outcome InstallPhase
+}
+  deriving (Show, Read)
+
+
+data DocsPhase = DocsPhase deriving (Show, Read)
+
+
+data InstallPhase = InstallPhase deriving (Show, Read)
+
+
+data Outcome a = OutcomeOk a | OutcomeFailed | OutcomeNotTried
+  deriving (Show, Read)
+
+
+writeBuildReport :: FilePath -> BuildReport -> IO ()
+writeBuildReport file report = do
+  createDirectoryIfMissing True (takeDirectory file)
+  writeFile file $ show report
+
+
+makeSuccessReport :: ConfiguredPackage -> (OS, String)
+                  -> (CompilerFlavor, Maybe Version) -> BuildReport
+makeSuccessReport (ConfiguredPackage pkgInfo flagAssignmnt pkgIds)
+                  platform compiler =  
+  BuildReport {
+    buildPackage             = packageId pkgInfo,
+    buildPlatform            = platform,
+    buildCompiler            = compiler,
+    buildOutcomeConfigure    = OutcomeOk $ ConfigurePhase {
+    
+makeFailureReport ::