diff options
| author | simonpj <unknown> | 2001-02-20 15:36:55 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2001-02-20 15:36:55 +0000 |
| commit | db7041f72b7c7d0114e47b7305058fae48fb0ade (patch) | |
| tree | c1f26f03b85bdb66b5590064c1d9f5d86a7c531d /ghc/compiler/parser | |
| parent | 0aa61e36c7baf3bb001049d495a46f0fdc330952 (diff) | |
| download | haskell-db7041f72b7c7d0114e47b7305058fae48fb0ade.tar.gz | |
[project @ 2001-02-20 15:36:55 by simonpj]
Remove IPName altogether
Diffstat (limited to 'ghc/compiler/parser')
| -rw-r--r-- | ghc/compiler/parser/Parser.y | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y index 2bb9d39f1c..52d81e76d0 100644 --- a/ghc/compiler/parser/Parser.y +++ b/ghc/compiler/parser/Parser.y @@ -1,6 +1,6 @@ {- ----------------------------------------------------------------------------- -$Id: Parser.y,v 1.53 2001/02/20 09:40:43 simonpj Exp $ +$Id: Parser.y,v 1.54 2001/02/20 15:36:55 simonpj Exp $ Haskell grammar. @@ -21,7 +21,7 @@ import RdrName import PrelNames ( mAIN_Name, unitTyCon_RDR, funTyCon_RDR, listTyCon_RDR, tupleTyCon_RDR, unitCon_RDR, nilCon_RDR, tupleCon_RDR ) -import OccName ( UserFS, varName, ipName, tcName, dataName, tcClsName, tvName ) +import OccName ( UserFS, varName, tcName, dataName, tcClsName, tvName ) import SrcLoc ( SrcLoc ) import Module import CallConv @@ -924,7 +924,7 @@ qvar :: { RdrName } -- *after* we see the close paren. ipvar :: { RdrName } - : IPVARID { (mkUnqual ipName (tailFS $1)) } + : IPVARID { (mkUnqual varName (tailFS $1)) } qcon :: { RdrName } : qconid { $1 } |