From b52062d98045422033a57e5605639d47d86272b1 Mon Sep 17 00:00:00 2001 From: Michael Sloan Date: Tue, 9 Aug 2016 17:20:54 -0700 Subject: [PATCH] Keep original tix file for debugging #2424 --- src/Stack/Coverage.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/Stack/Coverage.hs b/src/Stack/Coverage.hs index 001420fdda..829bb69816 100644 --- a/src/Stack/Coverage.hs +++ b/src/Stack/Coverage.hs @@ -82,6 +82,10 @@ updateTixFile pkgName tixSrc testName = do Nothing -> $logError $ "Failed to read " <> T.pack (toFilePath tixSrc) Just tix -> do liftIO $ writeTix (toFilePath tixDest) (removeExeModules tix) + -- TODO: ideally we'd do a file move, but IIRC this can + -- have problems. Something about moving between drives + -- on windows? + copyFile tixSrc =<< parseAbsFile (toFilePath tixDest ++ ".premunging") ignoringAbsence (removeFile tixSrc) -- | Get the directory used for hpc reports for the given pkgId. @@ -203,6 +207,7 @@ generateHpcReportInternal tixSrc reportDir report extraMarkupArgs extraReportArg : (args ++ extraMarkupArgs) ) + data HpcReportOpts = HpcReportOpts { hroptsInputs :: [Text] , hroptsAll :: Bool