X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fstranal%2FDmdAnal.lhs;h=31648b0b1d2c6b0df7fcc39ced92a4ef1d213e4a;hp=2414aead51a27954da1e8acf511464aae5bd707a;hb=8e8068df44747a15cbaf4d1d6b2c4a847dfca653;hpb=3e18f8be62b06c846b52d79717f79d51e2060593

diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs
index 2414aea..31648b0 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