diff options
Diffstat (limited to 'compiler/GHC/Core/Opt/OccurAnal.hs')
| -rw-r--r-- | compiler/GHC/Core/Opt/OccurAnal.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Core/Opt/OccurAnal.hs b/compiler/GHC/Core/Opt/OccurAnal.hs index af0e6aa5d6..156cb3df99 100644 --- a/compiler/GHC/Core/Opt/OccurAnal.hs +++ b/compiler/GHC/Core/Opt/OccurAnal.hs @@ -2066,7 +2066,8 @@ occAnalLamOrRhs env binders body env1 = env `addInScope` binders (env_body, binders') = oneShotGroup env1 binders -occAnalAlt :: OccEnv -> CoreAlt -> (UsageDetails, Alt IdWithOccInfo) +occAnalAlt :: OccEnv + -> CoreAlt -> (UsageDetails, Alt IdWithOccInfo) occAnalAlt env (con, bndrs, rhs) = case occAnal (env `addInScope` bndrs) rhs of { (rhs_usage1, rhs1) -> let @@ -2074,7 +2075,6 @@ occAnalAlt env (con, bndrs, rhs) in -- See Note [Binders in case alternatives] (alt_usg, (con, tagged_bndrs, rhs1)) } - {- ************************************************************************ * * |