diff options
| -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. |