Massive patch for the first months work adding System FC to GHC #25

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

diff --git a/compiler/ndpFlatten/PArrAnal.hs b/compiler/ndpFlatten/PArrAnal.hs
index 2db5622..804162c 100644 (file)
--- a/compiler/ndpFlatten/PArrAnal.hs
+++ b/compiler/ndpFlatten/PArrAnal.hs
@@ -87,6 +87,10 @@ arrUsage (Note n expr) =
 arrUsage (Type t) =
   typeArrayUsage  t
 
 arrUsage (Type t) =
   typeArrayUsage  t
 

+-- not quite sure this is right
+arrUsage (Cast expr co) =
+  arrUsage expr 
+

 bindType (b, expr) =
   let
     bT    = varArrayUsage b
 bindType (b, expr) =
   let
     bT    = varArrayUsage b