[project @ 2000-02-11 13:07:25 by simonpj]

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

diff --git a/ghc/compiler/absCSyn/CStrings.lhs b/ghc/compiler/absCSyn/CStrings.lhs
index 26644da..dcbf165 100644 (file)
--- a/ghc/compiler/absCSyn/CStrings.lhs
+++ b/ghc/compiler/absCSyn/CStrings.lhs
@@ -4,7 +4,7 @@ This module deals with printing C string literals
 module CStrings(
        cSEP, pp_cSEP,
 
-       stringToC, charToC,
+       stringToC, charToC, pprFSInCStyle,
        charToEasyHaskell
   ) where
 
@@ -22,6 +22,9 @@ pp_cSEP = char '_'
 stringToC   :: String -> String
 charToC, charToEasyHaskell :: Char -> String
 
+pprFSInCStyle :: FAST_STRING -> SDoc
+pprFSInCStyle fs = doubleQuotes (text (stringToC (_UNPK_ fs)))
+
 -- stringToC: the hassle is what to do w/ strings like "ESC 0"...
 
 stringToC ""  = ""