projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5ba6231
)
Generate fsLit not FSLIT in genprimopcode
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 12:32:47 +0000
(12:32 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 12:32:47 +0000
(12:32 +0000)
utils/genprimopcode/Main.hs
patch
|
blob
|
history
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"