From: dias@cs.tufts.edu <unknown>
Date: Fri, 18 Dec 2009 19:54:30 +0000 (+0000)
Subject: unused named variables
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d708100212551a1a4c3c05a7830c9092b4498e7c

unused named variables
---

diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs
index 28c7442..c9b67bd 100644
--- a/compiler/codeGen/StgCmmExpr.hs
+++ b/compiler/codeGen/StgCmmExpr.hs
@@ -301,7 +301,7 @@ cgCase (OpApp ) bndr srt AlgAlt [(DataAlt flase, a2]
   -- code that enters the HValue, then we'll get a runtime panic, because
   -- the HValue really is a MutVar#.  The types are compatible though,
   -- so we can just generate an assignment.
-cgCase scrut@(StgApp v []) bndr _ alt_type@(PrimAlt _) alts
+cgCase (StgApp v []) bndr _ alt_type@(PrimAlt _) alts
   | isUnLiftedType (idType v)
   || reps_compatible
   = -- assignment instruction suffices for unlifted types
@@ -313,7 +313,7 @@ cgCase scrut@(StgApp v []) bndr _ alt_type@(PrimAlt _) alts
   where
     reps_compatible = idCgRep v == idCgRep bndr
 
-cgCase scrut@(StgApp v []) bndr _ (PrimAlt _) _ 
+cgCase scrut@(StgApp v []) _ _ (PrimAlt _) _ 
   | lifted 
   = -- fail at run-time, not compile-time
     do { mb_cc <- maybeSaveCostCentre True