Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b59fe25a24c4b913a9935c71b1b42a060ab53dcc >--------------------------------------------------------------- commit b59fe25a24c4b913a9935c71b1b42a060ab53dcc Author: Ian Lynagh <[email protected]> Date: Thu Sep 15 20:44:28 2011 +0100 Follow the removal of the Show superclass of Num >--------------------------------------------------------------- compiler/nativeGen/SPARC/Base.hs | 2 +- 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 fa79cec..a77bc2d 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 46e1709..dff6012 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>" ++ _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
