diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2014-02-13 13:35:40 -0500 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2014-02-13 15:37:01 -0500 |
| commit | 473f12a3be27a00b035f1fdc7050a0ff31bf12ff (patch) | |
| tree | 0da4e257ac381af970ff09901b230f60a0f10f54 /compiler/parser/Parser.y.pp | |
| parent | 3d9644c2fc705ec80a8a63b0b698d74cd2d49212 (diff) | |
| download | haskell-473f12a3be27a00b035f1fdc7050a0ff31bf12ff.tar.gz | |
Fix #5682. Now, '(:) parses.
Diffstat (limited to 'compiler/parser/Parser.y.pp')
| -rw-r--r-- | compiler/parser/Parser.y.pp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp index 1715f6cc2f..d2bc463b62 100644 --- a/compiler/parser/Parser.y.pp +++ b/compiler/parser/Parser.y.pp @@ -1155,6 +1155,8 @@ atype :: { LHsType RdrName } | SIMPLEQUOTE '(' ')' { LL $ HsTyVar $ getRdrName unitDataCon } | SIMPLEQUOTE '(' ctype ',' comma_types1 ')' { LL $ HsExplicitTupleTy [] ($3 : $5) } | SIMPLEQUOTE '[' comma_types0 ']' { LL $ HsExplicitListTy placeHolderKind $3 } + | SIMPLEQUOTE '(' qconop ')' { LL $ HsTyVar (unLoc $3) } + | SIMPLEQUOTE '(' varop ')' { LL $ HsTyVar (unLoc $3) } | '[' ctype ',' comma_types1 ']' { LL $ HsExplicitListTy placeHolderKind ($2 : $4) } | INTEGER {% mkTyLit $ LL $ HsNumTy $ getINTEGER $1 } | STRING {% mkTyLit $ LL $ HsStrTy $ getSTRING $1 } |