projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
distclean: ghcprof-inplace
[ghc-hetmet.git]
/
utils
/
hpc
/
HpcFlags.hs
diff --git
a/utils/hpc/HpcFlags.hs
b/utils/hpc/HpcFlags.hs
index
3147af8
..
30d4679
100644
(file)
--- a/
utils/hpc/HpcFlags.hs
+++ b/
utils/hpc/HpcFlags.hs
@@
-110,7
+110,7
@@
postInvertOpt = noArg "post-invert" "invert output; ticked becomes unticked, unt
$ \ f -> f { funTotals = True }
-------------------------------------------------------------------------------
$ \ f -> f { funTotals = True }
-------------------------------------------------------------------------------
-readMixWithFlags :: Flags -> TixModule -> IO Mix
+readMixWithFlags :: Flags -> Either String TixModule -> IO Mix
readMixWithFlags flags mod = readMix [ dir ++ "/" ++ hpcDir flags
| dir <- srcDirs flags
] mod
readMixWithFlags flags mod = readMix [ dir ++ "/" ++ hpcDir flags
| dir <- srcDirs flags
] mod