X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=ffc1f44053a3a3a534cbf361ecc5e07d3ea9dbd8;hb=90dc9026b091be5cca5da4c6cbd3713ecc493361;hp=55f8cf293ba2b102ca2aed5b3b8e6e50a13ac4c0;hpb=e3dd39bf230380f02d73efc287226117bb2eb47f;p=ghc-hetmet.git

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 55f8cf2..ffc1f44 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -1325,6 +1325,9 @@ aexp2	:: { LHsExpr RdrName }
 	: ipvar				{ L1 (HsIPVar $! unLoc $1) }
 	| qcname			{ L1 (HsVar   $! unLoc $1) }
 	| literal			{ L1 (HsLit   $! unLoc $1) }
+-- This will enable overloaded strings permanently.  Normally the renamer turns HsString
+-- into HsOverLit when -foverloaded-strings is on.
+--	| STRING			{ L1 (HsOverLit $! mkHsIsString (getSTRING $1)) }
 	| INTEGER			{ L1 (HsOverLit $! mkHsIntegral (getINTEGER $1)) }
 	| RATIONAL			{ L1 (HsOverLit $! mkHsFractional (getRATIONAL $1)) }
 	| '(' exp ')'			{ LL (HsPar $2) }
@@ -1776,7 +1779,7 @@ consym :: { Located RdrName }
 
 literal :: { Located HsLit }
 	: CHAR 			{ L1 $ HsChar       $ getCHAR $1 }
-	| STRING		{ L1 $ HsString     $ getSTRING $1 }
+	| STRING 		{ L1 $ HsString     $ getSTRING $1 }
 	| PRIMINTEGER		{ L1 $ HsIntPrim    $ getPRIMINTEGER $1 }
 	| PRIMCHAR		{ L1 $ HsCharPrim   $ getPRIMCHAR $1 }
 	| PRIMSTRING		{ L1 $ HsStringPrim $ getPRIMSTRING $1 }