projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Generate fsLit not FSLIT in genprimopcode
[ghc-hetmet.git]
/
utils
/
genprimopcode
/
Main.hs
diff --git
a/utils/genprimopcode/Main.hs
b/utils/genprimopcode/Main.hs
index
e923755
..
54bdc8d
100644
(file)
--- a/
utils/genprimopcode/Main.hs
+++ b/
utils/genprimopcode/Main.hs
@@
-580,7
+580,7
@@
mkPOI_RHS_text i
++ "(" ++ ppType resTy ++ ")"
sl_name :: Entry -> String
++ "(" ++ ppType resTy ++ ")"
sl_name :: Entry -> String
-sl_name i = "FSLIT(\"" ++ name i ++ "\") "
+sl_name i = "(fsLit \"" ++ name i ++ "\") "
ppTyVar :: String -> String
ppTyVar "a" = "alphaTyVar"
ppTyVar :: String -> String
ppTyVar "a" = "alphaTyVar"