diff options
author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2023-02-21 15:34:26 +0100 |
---|---|---|
committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2023-02-21 15:50:11 +0100 |
commit | 4aff571b00560df347a5aaaa9caae0ab3047d414 (patch) | |
tree | cf6eca24154299b17db374eee782daa1867deeed | |
parent | a2b95105e4a87b1d9450a87ba11f1bf24da02350 (diff) | |
download | haskell-wip/andreask/cpr-dependent.tar.gz |
Limit recursive constructors to depth 1wip/andreask/cpr-dependent
-rw-r--r-- | compiler/GHC/Core/Opt/CprAnal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Opt/CprAnal.hs b/compiler/GHC/Core/Opt/CprAnal.hs index 3828f15863..7f2163a387 100644 --- a/compiler/GHC/Core/Opt/CprAnal.hs +++ b/compiler/GHC/Core/Opt/CprAnal.hs @@ -401,7 +401,7 @@ cprTransformDataConWork env con args in if rec_con then CprType 0 (ConCpr tag nested_cpr ) - else CprType 0 (ConCpr tag $ map (trimCprToDepth 3) nested_cpr ) + else CprType 0 (ConCpr tag $ map (trimCprToDepth 1) nested_cpr ) | otherwise = |