diff options
Diffstat (limited to 'utils/hpc/HpcDraft.hs')
| -rw-r--r-- | utils/hpc/HpcDraft.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/hpc/HpcDraft.hs b/utils/hpc/HpcDraft.hs index cdd1728f65..ac866d5043 100644 --- a/utils/hpc/HpcDraft.hs +++ b/utils/hpc/HpcDraft.hs @@ -48,7 +48,7 @@ draft_main hpcflags (progName:mods) = do Just (Tix tickCounts) -> do outs <- sequence [ makeDraft hpcflags1 tixModule - | tixModule@(TixModule m _ _ _) <- tickCounts + | tixModule@(TixModule m _ _) <- tickCounts , allowModule hpcflags1 m ] case outputFile hpcflags1 of @@ -60,7 +60,7 @@ draft_main hpcflags (progName:mods) = do makeDraft :: Flags -> TixModule -> IO String makeDraft hpcflags tix = do let modu = tixModuleName tix - tixs = tixModuleTixs tix + tixs = tickCountsToList $ tixModuleTixs tix (Mix filepath _ _ _ entries) <- readMixWithFlags hpcflags (Right tix) |