Keep original tix file for debugging #2424

commercialhaskell · Aug 10, 2016 · b52062d · b52062d
1 parent c850cea
commit b52062d
Showing 1 changed file with 5 additions and 0 deletions.
diff --git 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