Commit 62bcbe78 authored by simonpj's avatar simonpj

[project @ 2002-12-11 12:01:20 by simonpj]

Change interface to mkIfaceOrig
parent 64319387
......@@ -229,19 +229,19 @@ modid :: { ModuleName }
qname :: { RdrName } -- Includes data constructors
: name { $1 }
| mname '.' NAME { mkIfaceOrig varName (mkFastString $1,mkFastString $3) }
| mname '.' NAME { mkIfaceOrig varName (mkFastString $1) (mkFastString $3) }
| q_d_name { $1 }
-- Type constructor
q_tc_name :: { RdrName }
: mname '.' cname
{ mkIfaceOrig tcName (mkFastString $1,mkFastString $3) }
{ mkIfaceOrig tcName (mkFastString $1) (mkFastString $3) }
-- Data constructor
q_d_name :: { RdrName }
: mname '.' cname
{ mkIfaceOrig dataName (mkFastString $1,mkFastString $3) }
{ mkIfaceOrig dataName (mkFastString $1) (mkFastString $3) }
{
......@@ -253,7 +253,7 @@ convIntLit i (HsTyVar n)
| n == intPrimRdrName = MachInt i
| n == wordPrimRdrName = MachWord i
convIntLit i aty
= pprPanic "Unknown literal type" (ppr aty)
= pprPanic "Unknown literal type" (ppr aty $$ ppr intPrimRdrName)
wordPrimRdrName :: RdrName
wordPrimRdrName = nameRdrName wordPrimTyConName
......
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