diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-11-23 13:25:42 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-11-23 13:25:42 +0000 |
| commit | 30fdf02aff2ac1c4da2bb9292fc08cc8330580d0 (patch) | |
| tree | 82b062214626c20922959c82581decb3df2ba5ec /examples | |
| parent | 48139eb50c9052406839ee8375e378374e973207 (diff) | |
removed many -Wall warnings
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/experiments/Static.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 | |||
| 18 | lift p = [e| p |] | 18 | lift p = [e| p |] |
| 19 | 19 | ||
| 20 | instance (Lift a, Storable a, Lift (Ptr a), Lift (ForeignPtr a)) => Lift (Vector a ) where | 20 | instance (Lift a, Storable a, Lift (Ptr a), Lift (ForeignPtr a)) => Lift (Vector a ) where |
| 21 | lift (V n fp p) = [e| V $(lift n) $(lift fp) $(lift p) |] | 21 | lift (V n fp) = [e| V $(lift n) $(lift fp) |] |
| 22 | 22 | ||
| 23 | instance (Lift (Vector a)) => Lift (Matrix a) where | 23 | instance (Lift (Vector a)) => Lift (Matrix a) where |
| 24 | lift (MC r c v vt) = [e| MC $(lift r) $(lift c) $(lift v) $(lift vt) |] | 24 | lift (MC r c v) = [e| MC $(lift r) $(lift c) $(lift v) |] |
| 25 | lift (MF r c v vt) = [e| MF $(lift r) $(lift c) $(lift v) $(lift vt) |] | 25 | lift (MF r c v) = [e| MF $(lift r) $(lift c) $(lift v) |] |
| 26 | 26 | ||
| 27 | tdim :: Int -> ExpQ | 27 | tdim :: Int -> ExpQ |
| 28 | tdim 0 = [| Z |] | 28 | tdim 0 = [| Z |] |