[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