[project @ 1996-07-25 20:43:49 by partain]

[ghc-hetmet.git] / ghc / compiler / utils / Pretty.lhs

diff --git a/ghc/compiler/utils/Pretty.lhs b/ghc/compiler/utils/Pretty.lhs
index 8cb2440..ad2a76f 100644 (file)
--- a/ghc/compiler/utils/Pretty.lhs
+++ b/ghc/compiler/utils/Pretty.lhs
@@ -12,10 +12,12 @@
 #endif
 
 module Pretty (
-       SYN_IE(Pretty),
 
 #if defined(COMPILING_GHC)
+       SYN_IE(Pretty),
        prettyToUn,
+#else
+       Pretty,
 #endif
        ppNil, ppStr, ppPStr, ppChar, ppInt, ppInteger,
        ppFloat, ppDouble,
@@ -46,6 +48,8 @@ IMPORT_1_3(Ratio)
 IMPORT_1_3(IO)
 
 import Unpretty                ( SYN_IE(Unpretty) )
+#else
+import Ratio
 #endif
 
 import CharSeq
@@ -149,6 +153,7 @@ ppInt  n width is_vert = MkPrettyRep (cStr s) (MkDelay ls) False (width >= ls)
 ppInteger n  = ppStr (show n)
 ppDouble  n  = ppStr (show n)
 ppFloat   n  = ppStr (show n)
+
 ppRational n = ppStr (show (fromRationalX n)) -- _showRational 30 n)
 
 ppSP     = ppChar ' '