diff options
| -rw-r--r-- | compiler/nativeGen/SPARC/Base.hs | 2 | ||||
| -rw-r--r-- | utils/hpc/HpcMarkup.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/SPARC/Base.hs b/compiler/nativeGen/SPARC/Base.hs index fa79cece92..a77bc2dd0b 100644 --- a/compiler/nativeGen/SPARC/Base.hs +++ b/compiler/nativeGen/SPARC/Base.hs @@ -66,7 +66,7 @@ is32BitInteger i -- | Sadness. -largeOffsetError :: Integral a => a -> b +largeOffsetError :: (Integral a, Show a) => a -> b largeOffsetError i = panic ("ERROR: SPARC native-code generator cannot handle large offset (" ++ show i ++ ");\nprobably because of large constant data structures;" ++ 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>" ++ |