Commit cb080315 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Generate fsLit not FSLIT in genprimopcode

parent 5ba62318
......@@ -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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment