Fixing hpc to allow use of hash function to seperate source files on source path

[ghc-hetmet.git] / utils / hpc / HpcDraft.hs

diff --git a/utils/hpc/HpcDraft.hs b/utils/hpc/HpcDraft.hs
index 36256fc..cd72753 100644 (file)
--- a/utils/hpc/HpcDraft.hs
+++ b/utils/hpc/HpcDraft.hs
@@ -59,7 +59,7 @@ makeDraft hpcflags tix = do
       hash = tixModuleHash tix
       tixs = tixModuleTixs tix
 
-  mix@(Mix filepath timestamp hash tabstop entries) <- readMixWithFlags hpcflags mod
+  mix@(Mix filepath timestamp hash tabstop entries) <- readMixWithFlags hpcflags tix
 
   let forest = createMixEntryDom 
               [ (span,(box,v > 0))