[commit: Cabal] master: Create the logs dir (eeffa8a)

[Ian Lynagh]

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

On branch  : master

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

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

commit eeffa8a8adf14ec84663f7fa5dc05ab564153a72
Author: Duncan Coutts <duncan at haskell.org>
Date:   Fri Aug 8 15:19:23 2008 +0000

    Create the logs dir

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

 .../Distribution/Client/BuildReports/Storage.hs    |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/cabal-install/Distribution/Client/BuildReports/Storage.hs b/cabal-install/Distribution/Client/BuildReports/Storage.hs
index e890fcf..79d025e 100644
--- a/cabal-install/Distribution/Client/BuildReports/Storage.hs
+++ b/cabal-install/Distribution/Client/BuildReports/Storage.hs
@@ -47,6 +47,8 @@ import Data.Maybe
          ( catMaybes )
 import System.FilePath
          ( (</>) )
+import System.Directory
+         ( createDirectoryIfMissing )
 
 storeAnonymous :: [(BuildReport, Repo)] -> IO ()
 storeAnonymous reports = sequence_
@@ -77,6 +79,7 @@ storeLocal :: [(BuildReport, Repo)] -> IO ()
 storeLocal reports = do
   logsDir <- defaultLogsDir
   let file = logsDir </> "build.log"
+  createDirectoryIfMissing True logsDir
   appendFile file (concatMap (format . fst) reports)
   --TODO: make this concurrency safe, either lock the report file or make sure
   -- the writes for each report are atomic (under 4k and flush at boundaries)