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