X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FndpFlatten%2FPArrAnal.hs;h=804162c1831a65006416821254deb0ff28e0db88;hb=a8427a4125e9b78e88a487eeabf018f1c6e8bc08;hp=2db56221b24d73be2d310bc8e479fff4f414898d;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/ndpFlatten/PArrAnal.hs b/compiler/ndpFlatten/PArrAnal.hs
index 2db5622..804162c 100644
--- a/compiler/ndpFlatten/PArrAnal.hs
+++ b/compiler/ndpFlatten/PArrAnal.hs
@@ -87,6 +87,10 @@ arrUsage (Note n expr) =
 arrUsage (Type t) =
   typeArrayUsage  t
 
+-- not quite sure this is right
+arrUsage (Cast expr co) =
+  arrUsage expr 
+
 bindType (b, expr) =
   let
     bT    = varArrayUsage b