X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcMarkup.hs;fp=utils%2Fhpc%2FHpcMarkup.hs;h=9b920c600ea34669f9b3440c2489ae92baeeeb5a;hb=5f4e77a5a2ea03286b795da4051272ac7c774bd7;hp=4b3b976f5aee774c375b9529e05a91350d5a4331;hpb=f8c52d7fde2d7408b4f734251c373f8d3e2c558e;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs
index 4b3b976..9b920c6 100644
--- a/utils/hpc/HpcMarkup.hs
+++ b/utils/hpc/HpcMarkup.hs
@@ -143,7 +143,7 @@ genHtmlFromMod dest_dir flags tix theFunTotals invertOutput = do
   let theHsPath = srcDirs flags
   let modName0 = tixModuleName tix 
 
-  (Mix origFile _ mixHash tabStop mix') <- readMixWithFlags flags modName0
+  (Mix origFile _ mixHash tabStop mix') <- readMixWithFlags flags tix
 
   let arr_tix :: Array Int Integer
       arr_tix = listArray (0,length (tixModuleTixs tix) - 1)