Don't generate stub files when -fno-code is given.

[ghc-hetmet.git] / ghc / compiler / ndpFlatten / PArrAnal.hs

diff --git a/ghc/compiler/ndpFlatten/PArrAnal.hs b/ghc/compiler/ndpFlatten/PArrAnal.hs
index 46643d1..2db5622 100644 (file)
--- a/ghc/compiler/ndpFlatten/PArrAnal.hs
+++ b/ghc/compiler/ndpFlatten/PArrAnal.hs
@@ -75,7 +75,7 @@ arrUsage (Let (Rec bnds) expr) =
     t2 = arrUsage expr
   in if isArrayUsage t1 then Array else t2
 
-arrUsage (Case expr b alts) = 
+arrUsage (Case expr b _ alts) = 
   let 
     t1 = arrUsage expr
     t2 = scanType (map (arrUsage . (\ (_,_,x) -> x)) alts)