diff options
Diffstat (limited to 'utils/hpc/HpcMarkup.hs')
| -rw-r--r-- | utils/hpc/HpcMarkup.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs index a8c7f25e25..47da5d99c7 100644 --- a/utils/hpc/HpcMarkup.hs +++ b/utils/hpc/HpcMarkup.hs @@ -162,8 +162,8 @@ genHtmlFromMod dest_dir flags tix theFunTotals invertOutput = do (Mix origFile _ _ tabStop mix') <- readMixWithFlags flags (Right tix) let arr_tix :: Array Int Integer - arr_tix = listArray (0,length (tixModuleTixs tix) - 1) - $ tixModuleTixs tix + arr_tix = listArray (0,tickCountsSize (tixModuleTixs tix) - 1) + $ tickCountsToList $ tixModuleTixs tix let tickedWith :: Int -> Integer tickedWith n = arr_tix ! n |