Follow the removal of the Show superclass of Num

dmpots · Oct 12, 2011 · b59fe25 · b59fe25
1 parent 2a9f420
commit b59fe25
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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>" ++