diff options
| -rw-r--r-- | compiler/deSugar/DsExpr.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/DsExpr.lhs b/compiler/deSugar/DsExpr.lhs index f8bd213c3f..8c53c1aea1 100644 --- a/compiler/deSugar/DsExpr.lhs +++ b/compiler/deSugar/DsExpr.lhs @@ -206,8 +206,8 @@ dsExpr (HsLam a_Match) = uncurry mkLams <$> matchWrapper LambdaExpr a_Match dsExpr (HsLamCase arg matches@(MatchGroup _ rhs_ty)) - | isEmptyMatchGroup matches -- A Core 'case' is always non-empty - = -- So desugar empty HsLamCase to error call + | isEmptyMatchGroup matches -- A Core 'case' is always non-empty + = -- So desugar empty HsLamCase to error call mkErrorAppDs pAT_ERROR_ID (funResultTy rhs_ty) (ptext (sLit "\\case")) | otherwise = do { arg_var <- newSysLocalDs arg |