diff options
| author | Austin Seipp <austin@well-typed.com> | 2013-10-25 03:39:19 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2013-10-25 09:14:29 -0500 |
| commit | f57ba1d74ca434f6025347c70769c9f1889abcc5 (patch) | |
| tree | 7e4ebd0dfa54d9995a5b115c743c966188f59fe2 /compiler/deSugar/DsBinds.lhs | |
| parent | f213e48447050bf468bc4d91fc4d810402c23b85 (diff) | |
| download | haskell-f57ba1d74ca434f6025347c70769c9f1889abcc5.tar.gz | |
Placate clang (#8444, #8445)
Once again the whitespace rules (and the rules concerning expansion of
tokens) have bitten us.
Authored-by: Authored-by: Luke Iannini <lukexi@me.com>
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'compiler/deSugar/DsBinds.lhs')
| -rw-r--r-- | compiler/deSugar/DsBinds.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/DsBinds.lhs b/compiler/deSugar/DsBinds.lhs index cbdc98f070..46ab91cbf9 100644 --- a/compiler/deSugar/DsBinds.lhs +++ b/compiler/deSugar/DsBinds.lhs @@ -810,7 +810,7 @@ wrapInEqRCase e mkBody = do cov <- newSysLocalDs (mkCoercionType Representational ty1 ty2) body' <- mkBody (mkCoVarCo cov) return $ - ASSERT (tc == coercibleTyCon) + ASSERT(tc == coercibleTyCon) mkWildCase e (exprType e) |