diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-07-16 11:23:50 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-07-16 11:23:50 +0100 |
| commit | d4ebfccee095fc67eb6811aede0e8416a2e40aa1 (patch) | |
| tree | 0e18228535e1a2c5d6a4169e7e923b65c4626808 /compiler/deSugar/DsExpr.lhs | |
| parent | c84481238ceb7ed49bcfd044c5bf1d9d7136d1e1 (diff) | |
| download | haskell-d4ebfccee095fc67eb6811aede0e8416a2e40aa1.tar.gz | |
Remove tabs
Diffstat (limited to 'compiler/deSugar/DsExpr.lhs')
| -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 |