Fix prettyprinting of SCC pragmas

compiler/GHC/Types/SourceText.hs

@@ -322,4 +322,4 @@ instance Eq StringLiteral where
   (StringLiteral _ a _) == (StringLiteral _ b _) = a == b
 
 instance Outputable StringLiteral where
-  ppr sl = pprWithSourceText (sl_st sl) (ftext $ sl_fs sl)
+  ppr sl = pprWithSourceText (sl_st sl) (doubleQuotes $ ftext $ sl_fs sl)

libraries/template-haskell/Language/Haskell/TH/Ppr.hs

@@ -659,7 +659,7 @@ instance Ppr Pragma where
        = text "{-# COMPLETE" <+> (fsep $ punctuate comma $ map (pprName' Applied) cls)
                 <+> maybe empty (\ty -> dcolon <+> pprName' Applied ty) mty <+> text "#-}"
     ppr (SCCP nm str)
-       = text "{-# SCC" <+> pprName' Applied nm <+> maybe empty text str <+> text "#-}"
+       = text "{-# SCC" <+> pprName' Applied nm <+> maybe empty pprString str <+> text "#-}"
 
 ------------------------------
 instance Ppr Inline where

testsuite/tests/th/should_compile/T24081/T24081.stderr

@@ -6,10 +6,10 @@ Main.hs:5:1: Splicing declarations
 Main.hs:6:1: Splicing declarations
     y
   ======>
-    {-# SCC g custom_name_g #-}
+    {-# SCC g "custom_name_g" #-}
     g = 1
 Main.hs:9:1-3: Splicing declarations
     gen
   ======>
     {-# SCC a #-}
-    {-# SCC b custom_name_b #-}
+    {-# SCC b "custom_name_b" #-}