From cb0803152bdebfb6d06810e6775e255dec9acd39 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 12:32:47 +0000 Subject: [PATCH] Generate fsLit not FSLIT in genprimopcode --- utils/genprimopcode/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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" -- 1.7.10.4