From 986cee9db6dcea5829f2f547d7604b339e436da8 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 11 Feb 2000 13:07:25 +0000
Subject: [PATCH] [project @ 2000-02-11 13:07:25 by simonpj] Add pprFSInCStyle

---
 ghc/compiler/absCSyn/CStrings.lhs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/absCSyn/CStrings.lhs b/ghc/compiler/absCSyn/CStrings.lhs
index 26644da336b3..dcbf165aa175 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 ""  = ""
-- 
GitLab