diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2013-11-29 09:00:57 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2013-11-29 09:09:17 +0100 |
| commit | 96416412cc8100bd1c1625e10c09df17c88a67b7 (patch) | |
| tree | 8ef534794d0628d66ab59039d1020ae870f23b2c /compiler/deSugar/DsBinds.lhs | |
| parent | 59e17d6ef71c29f4e114e55be83f1b3722f04139 (diff) | |
| download | haskell-96416412cc8100bd1c1625e10c09df17c88a67b7.tar.gz | |
Remove whitespace between macro identifiers and `(`
This is a kludge to workaround Clang's CPP lacking traditional-mode CPP
(This was reported by Kazu Yamamoto)
Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
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 9866453fed..5764d1101d 100644 --- a/compiler/deSugar/DsBinds.lhs +++ b/compiler/deSugar/DsBinds.lhs @@ -705,7 +705,7 @@ dsHsWrapper (WpTyApp ty) e = return $ App e (Type ty) dsHsWrapper (WpLet ev_binds) e = do bs <- dsTcEvBinds ev_binds return (mkCoreLets bs e) dsHsWrapper (WpCompose c1 c2) e = dsHsWrapper c1 =<< dsHsWrapper c2 e -dsHsWrapper (WpCast co) e = ASSERT (tcCoercionRole co == Representational) +dsHsWrapper (WpCast co) e = ASSERT(tcCoercionRole co == Representational) dsTcCoercion co (mkCast e) dsHsWrapper (WpEvLam ev) e = return $ Lam ev e dsHsWrapper (WpTyLam tv) e = return $ Lam tv e |