From: simonpj <unknown>
Date: Fri, 11 Feb 2000 13:07:25 +0000 (+0000)
Subject: [project @ 2000-02-11 13:07:25 by simonpj]
X-Git-Tag: Approximately_9120_patches~5142
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=986cee9db6dcea5829f2f547d7604b339e436da8;p=ghc-hetmet.git

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

diff --git a/ghc/compiler/absCSyn/CStrings.lhs b/ghc/compiler/absCSyn/CStrings.lhs
index 26644da..dcbf165 100644
--- 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 ""  = ""