[project @ 2000-04-03 09:52:28 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 628b540..0b543d4 100644 (file)
--- a/ghc/compiler/absCSyn/CStrings.lhs
+++ b/ghc/compiler/absCSyn/CStrings.lhs
@@ -2,7 +2,8 @@ This module deals with printing C string literals
 
 \begin{code}
 module CStrings(
-       CLabelString, isCLabelString,
+       CLabelString, isCLabelString, pprCLabelString,
+
        cSEP, pp_cSEP,
 
        stringToC, charToC, pprFSInCStyle,
@@ -19,6 +20,8 @@ import Outputable
 \begin{code}
 type CLabelString = FAST_STRING                -- A C label, completely unencoded
 
+pprCLabelString lbl = ptext lbl
+
 isCLabelString :: CLabelString -> Bool -- Checks to see if this is a valid C label
 isCLabelString lbl 
   = all ok (_UNPK_ lbl)