Removed unused var
authorGabriele Keller <keller@cse.unsw.edu.au>
Fri, 17 Feb 2012 09:14:04 +0000 (20:14 +1100)
committerGabriele Keller <keller@cse.unsw.edu.au>
Fri, 17 Feb 2012 09:14:04 +0000 (20:14 +1100)
dph-lifted-boxed/Data/Array/Parallel/Lifted/Closure.hs

index f4b7986..77a2b2e 100644 (file)
@@ -169,7 +169,7 @@ closure4 fv fl
 
         -----
         fv_3 (xa, yb) zc           = Clo  fv_4 fl_4 ((xa, yb), zc)
-        fl_3 n (PTuple2 xs ys) zs  = AClo fv_4 fl_4 (PTuple2 (PTuple2 xs ys) zs)
+        fl_3 _ (PTuple2 xs ys) zs  = AClo fv_4 fl_4 (PTuple2 (PTuple2 xs ys) zs)
 
         -----
         fv_4 ((xa, yb), zc)   wd        = fv xa yb zc wd