X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FCStrings.lhs;h=5a40e344f5a1c857cbfa62389a325fcf64467e8d;hb=9dd6e1c216993624a2cd74b62ca0f0569c02c26b;hp=964623a47ff2c3c7b53f38fd9638ba9665751242;hpb=dcef38bab91d45b56f7cf3ceeec96303d93728bb;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/CStrings.lhs b/ghc/compiler/absCSyn/CStrings.lhs
index 964623a..5a40e34 100644
--- 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