[project @ 1999-07-14 08:37:57 by simonmar]

[ghc-hetmet.git] / ghc / lib / std / PrelShow.lhs

diff --git a/ghc/lib/std/PrelShow.lhs b/ghc/lib/std/PrelShow.lhs
index eebdcc6..42c6250 100644 (file)
--- a/ghc/lib/std/PrelShow.lhs
+++ b/ghc/lib/std/PrelShow.lhs
@@ -32,7 +32,11 @@ module PrelShow
 import {-# SOURCE #-} PrelErr ( error )
 import PrelBase
 import PrelMaybe
-import PrelList        ( (!!), break, dropWhile )
+import PrelList        ( (!!), break, dropWhile
+#ifdef USE_REPORT_PRELUDE
+                , concatMap, foldr1
+#endif
+                )
 \end{code}
 
 
@@ -84,7 +88,7 @@ instance Show Bool where
 instance Show Ordering where
   showsPrec _ LT = showString "LT"
   showsPrec _ EQ = showString "EQ"
-  showsPrec _ GT = showString "EQ"
+  showsPrec _ GT = showString "GT"
 
 instance  Show Char  where
     showsPrec _ '\'' = showString "'\\''"
@@ -99,13 +103,13 @@ instance  Show Int  where
     showsPrec p n = showSignedInt p n
 
 instance Show a => Show (Maybe a) where
-    showsPrec p Nothing  = showString "Nothing"
-    showsPrec p (Just x) = showString "Just " . shows x
+    showsPrec _p Nothing  = showString "Nothing"
+    showsPrec _p (Just x) = showString "Just " . shows x
        -- Not sure I have the priorities right here
 
 instance (Show a, Show b) => Show (Either a b) where
-    showsPrec p (Left a)  = showString "Left "  . shows a
-    showsPrec p (Right b) = showString "Right " . shows b
+    showsPrec _p (Left a)  = showString "Left "  . shows a
+    showsPrec _p (Right b) = showString "Right " . shows b
        -- Not sure I have the priorities right here
 \end{code}