From 30fdf02aff2ac1c4da2bb9292fc08cc8330580d0 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 23 Nov 2007 13:25:42 +0000 Subject: removed many -Wall warnings --- examples/experiments/Static.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'examples/experiments') diff --git a/examples/experiments/Static.hs b/examples/experiments/Static.hs index c0cfcce..385bb7b 100644 --- a/examples/experiments/Static.hs +++ b/examples/experiments/Static.hs @@ -18,11 +18,11 @@ instance Lift (ForeignPtr Double) where lift p = [e| p |] instance (Lift a, Storable a, Lift (Ptr a), Lift (ForeignPtr a)) => Lift (Vector a ) where - lift (V n fp p) = [e| V $(lift n) $(lift fp) $(lift p) |] + lift (V n fp) = [e| V $(lift n) $(lift fp) |] instance (Lift (Vector a)) => Lift (Matrix a) where - lift (MC r c v vt) = [e| MC $(lift r) $(lift c) $(lift v) $(lift vt) |] - lift (MF r c v vt) = [e| MF $(lift r) $(lift c) $(lift v) $(lift vt) |] + lift (MC r c v) = [e| MC $(lift r) $(lift c) $(lift v) |] + lift (MF r c v) = [e| MF $(lift r) $(lift c) $(lift v) |] tdim :: Int -> ExpQ tdim 0 = [| Z |] -- cgit v1.2.3