[commit: ghc] master: Fix build on darwin (df570d9)

git at git.haskell.org git at git.haskell.org
Mon Nov 26 09:28:44 UTC 2018


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/df570d920fa66db631f936fa377e598fe92bd2a1/ghc

>---------------------------------------------------------------

commit df570d920fa66db631f936fa377e598fe92bd2a1
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Mon Nov 26 12:27:59 2018 +0300

    Fix build on darwin
    
    CPP error introduced with b2950e0


>---------------------------------------------------------------

df570d920fa66db631f936fa377e598fe92bd2a1
 compiler/simplStg/StgLiftLams/Transformation.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/simplStg/StgLiftLams/Transformation.hs b/compiler/simplStg/StgLiftLams/Transformation.hs
index 8c4d616..7b37bac 100644
--- a/compiler/simplStg/StgLiftLams/Transformation.hs
+++ b/compiler/simplStg/StgLiftLams/Transformation.hs
@@ -102,7 +102,7 @@ liftRhs
   -> LlStgRhs
   -> LiftM OutStgRhs
 liftRhs mb_former_fvs rhs@(StgRhsCon ccs con args)
-  = ASSERT2 ( isNothing mb_former_fvs, text "Should never lift a constructor" $$ ppr rhs)
+  = ASSERT2(isNothing mb_former_fvs, text "Should never lift a constructor" $$ ppr rhs)
     StgRhsCon ccs con <$> traverse liftArgs args
 liftRhs Nothing (StgRhsClosure _ ccs upd infos body) = do
   -- This RHS wasn't lifted.



More information about the ghc-commits mailing list