diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-12-03 16:44:24 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-12-03 16:44:24 +0000 |
| commit | 8e8068df44747a15cbaf4d1d6b2c4a847dfca653 (patch) | |
| tree | 571653e3a745103713f590334e20dd47e6d103a1 /compiler/stranal | |
| parent | 3e18f8be62b06c846b52d79717f79d51e2060593 (diff) | |
| download | haskell-8e8068df44747a15cbaf4d1d6b2c4a847dfca653.tar.gz | |
Tweak layout for alternative layout rule
Diffstat (limited to 'compiler/stranal')
| -rw-r--r-- | compiler/stranal/DmdAnal.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs index 2414aead51..31648b0b1d 100644 --- a/compiler/stranal/DmdAnal.lhs +++ b/compiler/stranal/DmdAnal.lhs @@ -217,9 +217,9 @@ dmdAnal sigs dmd (Lam var body) (deferType lam_ty, Lam var' body') dmdAnal sigs dmd (Case scrut case_bndr ty [alt@(DataAlt dc,bndrs,rhs)]) - | let tycon = dataConTyCon dc, - isProductTyCon tycon, - not (isRecursiveTyCon tycon) + | let tycon = dataConTyCon dc + , isProductTyCon tycon + , not (isRecursiveTyCon tycon) = let sigs_alt = extendSigEnv NotTopLevel sigs case_bndr case_bndr_sig (alt_ty, alt') = dmdAnalAlt sigs_alt dmd alt |