diff options
Diffstat (limited to 'ghc/compiler/ndpFlatten/PArrAnal.hs')
| -rw-r--r-- | ghc/compiler/ndpFlatten/PArrAnal.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ghc/compiler/ndpFlatten/PArrAnal.hs b/ghc/compiler/ndpFlatten/PArrAnal.hs index 46643d1a05..b4d084364b 100644 --- a/ghc/compiler/ndpFlatten/PArrAnal.hs +++ b/ghc/compiler/ndpFlatten/PArrAnal.hs @@ -75,7 +75,8 @@ arrUsage (Let (Rec bnds) expr) = t2 = arrUsage expr in if isArrayUsage t1 then Array else t2 -arrUsage (Case expr b alts) = +-- gaw 2004 +arrUsage (Case expr b _ alts) = let t1 = arrUsage expr t2 = scanType (map (arrUsage . (\ (_,_,x) -> x)) alts) |