[commit: ghc] master: TcSimplify: Condense MASSERT2() usage onto a single line (8d72f87)
git at git.haskell.org
git at git.haskell.org
Fri Aug 24 03:24:56 UTC 2018
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/8d72f87877fbc6e90ebeff12f71b69c44aea4875/ghc
>---------------------------------------------------------------
commit 8d72f87877fbc6e90ebeff12f71b69c44aea4875
Author: Ben Gamari <ben at smart-cactus.org>
Date: Thu Aug 23 22:39:06 2018 -0400
TcSimplify: Condense MASSERT2() usage onto a single line
Sadly macOS's C preprocessor gets angry at the sight of multi-line macro
invocations.
>---------------------------------------------------------------
8d72f87877fbc6e90ebeff12f71b69c44aea4875
compiler/typecheck/TcSimplify.hs | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/compiler/typecheck/TcSimplify.hs b/compiler/typecheck/TcSimplify.hs
index c2d7eb0..2a89ab2 100644
--- a/compiler/typecheck/TcSimplify.hs
+++ b/compiler/typecheck/TcSimplify.hs
@@ -1558,9 +1558,7 @@ solveImplication imp@(Implic { ic_tclvl = tclvl
-- remaining commented out for now.
{-
check_tc_level = do { cur_lvl <- TcS.getTcLevel
- ; MASSERT2( tclvl == pushTcLevel cur_lvl
- , text "Cur lvl =" <+> ppr cur_lvl $$
- text "Imp lvl =" <+> ppr tclvl ) }
+ ; MASSERT2( tclvl == pushTcLevel cur_lvl , text "Cur lvl =" <+> ppr cur_lvl $$ text "Imp lvl =" <+> ppr tclvl ) }
-}
----------------------
More information about the ghc-commits
mailing list