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 <[email protected]> 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) _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
