diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-11-26 12:27:59 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-11-26 12:27:59 +0300 |
| commit | df570d920fa66db631f936fa377e598fe92bd2a1 (patch) | |
| tree | 82b7a442ed5d35c42c4c57c4bf195a2256591cec /compiler | |
| parent | 8a6aa87766a47f7f2f11642f770a52c0a91fc554 (diff) | |
| download | haskell-df570d920fa66db631f936fa377e598fe92bd2a1.tar.gz | |
Fix build on darwin
CPP error introduced with b2950e0
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/simplStg/StgLiftLams/Transformation.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplStg/StgLiftLams/Transformation.hs b/compiler/simplStg/StgLiftLams/Transformation.hs index 8c4d6165fd..7b37bac91e 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. |