X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fgenprimopcode%2FMain.hs;fp=utils%2Fgenprimopcode%2FMain.hs;h=54bdc8deba06e611c101171d5e2fa282698087a6;hp=e923755985593a2f491e9478e0112c3f5f31c88b;hb=cb0803152bdebfb6d06810e6775e255dec9acd39;hpb=5ba62318965cc25b2aad20345d9b6acf665ea23d

diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs
index e923755..54bdc8d 100644
--- a/utils/genprimopcode/Main.hs
+++ b/utils/genprimopcode/Main.hs
@@ -580,7 +580,7 @@ mkPOI_RHS_text i
                       ++ "(" ++ ppType resTy ++ ")"
 
 sl_name :: Entry -> String
-sl_name i = "FSLIT(\"" ++ name i ++ "\") "
+sl_name i = "(fsLit \"" ++ name i ++ "\") "
 
 ppTyVar :: String -> String
 ppTyVar "a" = "alphaTyVar"