X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FPretty.lhs;fp=ghc%2Fcompiler%2Futils%2FPretty.lhs;h=9da7804a97a8ce6217cb40fd036ae24dd9faac60;hb=a1880d93632bf9a85cc04d30740b032413338b04;hp=41cdb1a5d0ed4d8302a83f75f808c6a1fa7210cf;hpb=26bb616517de72d5419b9bd4a12629fe3ba61e95;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/Pretty.lhs b/ghc/compiler/utils/Pretty.lhs
index 41cdb1a..9da7804 100644
--- a/ghc/compiler/utils/Pretty.lhs
+++ b/ghc/compiler/utils/Pretty.lhs
@@ -165,19 +165,10 @@ allow you to use either GHC or Hugs.  To get GHC, just set the CPP variable
 #define DIV	`quotInt#`
 
 
-#if __GLASGOW_HASKELL__ >= 202
-			-- Haskell 1.3 stuff
 #define SHOW	Show
 #define MAXINT	maxBound
 
 #else
-			-- Haskell 1.2 stuff
-#define SHOW	Text
-#define MAXINT	maxInt
-#endif
-
-
-#else
 
 -- Standard Haskell