diff options
| author | Geoffrey Mainland <mainland@apeiron.net> | 2013-05-16 16:47:06 +0100 |
|---|---|---|
| committer | Geoffrey Mainland <mainland@apeiron.net> | 2013-10-04 17:22:48 -0400 |
| commit | 047b3b8c02f3e9b23948a7e259bcf73e87d9192e (patch) | |
| tree | ad37b4123e5a804adcaa54e94f22139b7694f668 /compiler/parser/Parser.y.pp | |
| parent | 1e6a9410911475d5afb57fb4e6b6b29d85a1e13e (diff) | |
| download | haskell-047b3b8c02f3e9b23948a7e259bcf73e87d9192e.tar.gz | |
Clean up smart constructors for splices.
Diffstat (limited to 'compiler/parser/Parser.y.pp')
| -rw-r--r-- | compiler/parser/Parser.y.pp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp index eb7a4b2cdf..97276b8350 100644 --- a/compiler/parser/Parser.y.pp +++ b/compiler/parser/Parser.y.pp @@ -1552,14 +1552,14 @@ aexp2 :: { LHsExpr RdrName } | '_' { L1 EWildPat } -- Template Haskell Extension - | TH_ID_SPLICE { L1 $ HsSpliceE (mkHsSplice + | TH_ID_SPLICE { L1 $ mkHsSpliceE (L1 $ HsVar (mkUnqual varName - (getTH_ID_SPLICE $1)))) } - | '$(' exp ')' { LL $ HsSpliceE (mkHsSplice $2) } - | TH_ID_TY_SPLICE { L1 $ HsSpliceE (mkHsTExpSplice + (getTH_ID_SPLICE $1))) } + | '$(' exp ')' { LL $ mkHsSpliceE $2 } + | TH_ID_TY_SPLICE { L1 $ mkHsSpliceTE (L1 $ HsVar (mkUnqual varName - (getTH_ID_TY_SPLICE $1)))) } - | '$$(' exp ')' { LL $ HsSpliceE (mkHsTExpSplice $2) } + (getTH_ID_TY_SPLICE $1))) } + | '$$(' exp ')' { LL $ mkHsSpliceTE $2 } | SIMPLEQUOTE qvar { LL $ HsBracket (VarBr True (unLoc $2)) } |