[project @ 1998-11-26 09:17:22 by sof]

[ghc-hetmet.git] / ghc / compiler / absCSyn / CStrings.lhs

diff --git a/ghc/compiler/absCSyn/CStrings.lhs b/ghc/compiler/absCSyn/CStrings.lhs
index 964623a..5a40e34 100644 (file)
--- a/ghc/compiler/absCSyn/CStrings.lhs
+++ b/ghc/compiler/absCSyn/CStrings.lhs
@@ -1,8 +1,6 @@
 This module deals with printing (a) C string literals and (b) C labels.
 
 \begin{code}
-#include "HsVersions.h"
-
 module CStrings(
 
        cSEP,
@@ -14,11 +12,10 @@ module CStrings(
 
   ) where
 
-CHK_Ubiq() -- debugging consistency check
-
-import Pretty
+#include "HsVersions.h"
 
-IMPORT_1_3(Char (isAlphanum,ord,chr))
+import Char    ( isAlphanum, ord, chr )
+import Outputable
 \end{code}
 
 
@@ -39,7 +36,7 @@ Prelude<x>    ZP<x>
 cSEP    = SLIT("_")    -- official C separator
 pp_cSEP = char '_'
 
-identToC    :: FAST_STRING -> Doc
+identToC    :: FAST_STRING -> SDoc
 modnameToC  :: FAST_STRING -> FAST_STRING
 stringToC   :: String -> String
 charToC, charToEasyHaskell :: Char -> String