1 files changed, 4 insertions, 0 deletions
diff --git a/hadrian/src/Flavour.hs b/hadrian/src/Flavour.hs
index aedf78ff64..e6b80a853b 100644
--- a/hadrian/src/Flavour.hs
+++ b/hadrian/src/Flavour.hs
@@ -28,6 +28,7 @@ import Settings.Parser
 import Text.Parsec.Prim as P
 import Text.Parsec.Combinator as P
 import Text.Parsec.Char as P
+import System.Directory (canonicalizePath)
 import Control.Monad.Except
 import UserSettings
 
@@ -252,6 +253,9 @@ enableGhcCoverage = addArgs $ notStage0 ? mconcat
     [ package compiler ? enableCoverage
     , package ghc ? enableCoverage
     , package ghci ? enableCoverage
+    , builder (Testsuite RunTest) ? do
+        path <- expr $ buildRoot >>= liftIO . canonicalizePath
+        pure ["--hpc", path -/- "testsuite/hpc-tix"]
     ]
   where
     -- In principle this should work but in practice it does not: -fhpc does