diff options
Diffstat (limited to 'utils/hpc/HpcFlags.hs')
| -rw-r--r-- | utils/hpc/HpcFlags.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/utils/hpc/HpcFlags.hs b/utils/hpc/HpcFlags.hs index 017030986a..dd1d9f7260 100644 --- a/utils/hpc/HpcFlags.hs +++ b/utils/hpc/HpcFlags.hs @@ -8,6 +8,7 @@ import Data.Char import Trace.Hpc.Tix import Trace.Hpc.Mix import System.Exit +import System.FilePath data Flags = Flags { outputFile :: String @@ -154,7 +155,7 @@ unionModuleOpt = noArg "union" ------------------------------------------------------------------------------- readMixWithFlags :: Flags -> Either String TixModule -> IO Mix -readMixWithFlags flags modu = readMix [ dir ++ "/" ++ hpcDir +readMixWithFlags flags modu = readMix [ dir </> hpcDir | dir <- srcDirs flags , hpcDir <- hpcDirs flags ] modu |