diff options
Diffstat (limited to 'compiler/rename/RnExpr.hs')
| -rw-r--r-- | compiler/rename/RnExpr.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/compiler/rename/RnExpr.hs b/compiler/rename/RnExpr.hs index da0d38754d..85ef82d049 100644 --- a/compiler/rename/RnExpr.hs +++ b/compiler/rename/RnExpr.hs @@ -176,6 +176,10 @@ rnExpr (HsPar (L loc (section@(SectionR {})))) = do { (section', fvs) <- rnSection section ; return (HsPar (L loc section'), fvs) } +rnExpr (HsPar (L loc (section@(TySigSection {})))) + = do { (section', fvs) <- rnSection section + ; return (HsPar (L loc section'), fvs) } + rnExpr (HsPar e) = do { (e', fvs_e) <- rnLExpr e ; return (HsPar e', fvs_e) } @@ -184,6 +188,9 @@ rnExpr expr@(SectionL {}) = do { addErr (sectionErr expr); rnSection expr } rnExpr expr@(SectionR {}) = do { addErr (sectionErr expr); rnSection expr } +rnExpr expr@(TySigSection {}) + = do { addErr (sectionErr expr); rnSection expr } + --------------------------------------------- rnExpr (HsCoreAnn src ann expr) @@ -400,6 +407,10 @@ rnSection section@(SectionL expr op) ; checkSectionPrec InfixL section op' expr' ; return (SectionL expr' op', fvs_op `plusFV` fvs_expr) } +rnSection (TySigSection pty PlaceHolder) + = do { (pty', fvTy, wcs) <- rnLHsTypeWithWildCards ExprWithTySigCtx pty + ; return (TySigSection pty' wcs, fvTy) } + rnSection other = pprPanic "rnSection" (ppr other) {- |