projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixing hpc to allow use of hash function to seperate source files on source path
[ghc-hetmet.git]
/
utils
/
hpc
/
HpcMarkup.hs
diff --git
a/utils/hpc/HpcMarkup.hs
b/utils/hpc/HpcMarkup.hs
index
4b3b976
..
9b920c6
100644
(file)
--- 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
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)
let arr_tix :: Array Int Integer
arr_tix = listArray (0,length (tixModuleTixs tix) - 1)