diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-09-15 20:44:28 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-12 16:30:31 +0100 |
| commit | b59fe25a24c4b913a9935c71b1b42a060ab53dcc (patch) | |
| tree | a55c7006c021426968923f5249e86b33cce1dbd2 /utils/hpc | |
| parent | 2a9f42095cb2d9aace991b11bf052d12ca654ef8 (diff) | |
| download | haskell-b59fe25a24c4b913a9935c71b1b42a060ab53dcc.tar.gz | |
Follow the removal of the Show superclass of Num
Diffstat (limited to 'utils/hpc')
| -rw-r--r-- | utils/hpc/HpcMarkup.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs index 46e17090f4..dff6012cb0 100644 --- a/utils/hpc/HpcMarkup.hs +++ b/utils/hpc/HpcMarkup.hs @@ -406,7 +406,7 @@ showTotalSummary modSummary = showSummary (expTicked modSummary) (expTotal modSummary) ++ "</tr>\n" -showSummary :: (Integral t) => t -> t -> String +showSummary :: (Integral t, Show t) => t -> t -> String showSummary ticked total = "<td align=\"right\">" ++ showP (percent ticked total) ++ "</td>" ++ "<td>" ++ show ticked ++ "/" ++ show total ++ "</td>" ++ |