From 14e7206d8cafe752ee30d207ed3b860b9c8cec8f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 14 Jun 1999 11:11:29 +0000
Subject: [PATCH] [project @ 1999-06-14 11:11:29 by simonmar] Allow ``...'' as
 argument of __casm.

---
 ghc/compiler/rename/ParseIface.y |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 0d160a0..5d58b40 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -152,6 +152,7 @@ import Ratio ( (%) )
  STRING		{ ITstring   $$ }
  INTEGER	{ ITinteger  $$ }
  RATIONAL	{ ITrational $$ }
+ CLITLIT	{ ITlitlit   $$ }
 
  UNKNOWN	{ ITunknown  $$ }
 %%
@@ -737,6 +738,7 @@ core_tv_bndr	:  '@' tv_name '::' akind		{ UfTyBinder $2 $4 }
 
 ccall_string	:: { FAST_STRING }
 		: STRING					{ $1 }
+		| CLITLIT					{ $1 }
 		| VARID						{ $1 }
 		| CONID						{ $1 }
 
-- 
1.7.10.4