[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