diff options
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnExpr.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/compiler/rename/RnExpr.hs b/compiler/rename/RnExpr.hs index c74e46df97..bed53ece35 100644 --- a/compiler/rename/RnExpr.hs +++ b/compiler/rename/RnExpr.hs @@ -412,24 +412,12 @@ rnExpr (HsProc x pat body) { (body',fvBody) <- rnCmdTop body ; return (HsProc x pat' body', fvBody) } --- Ideally, these would be done in parsing, but to keep parsing simple, we do it here. -rnExpr e@(HsArrApp {}) = arrowFail e -rnExpr e@(HsArrForm {}) = arrowFail e - rnExpr other = pprPanic "rnExpr: unexpected expression" (ppr other) -- HsWrap hsHoleExpr :: HsExpr (GhcPass id) hsHoleExpr = HsUnboundVar noExt (TrueExprHole (mkVarOcc "_")) -arrowFail :: HsExpr GhcPs -> RnM (HsExpr GhcRn, FreeVars) -arrowFail e - = do { addErr (vcat [ text "Arrow command found where an expression was expected:" - , nest 2 (ppr e) ]) - -- Return a place-holder hole, so that we can carry on - -- to report other errors - ; return (hsHoleExpr, emptyFVs) } - ---------------------- -- See Note [Parsing sections] in Parser.y rnSection :: HsExpr GhcPs -> RnM (HsExpr GhcRn, FreeVars) |