compatible with vector

1 files changed, 5 insertions, 2 deletions

diff --git a/examples/vector.hs b/examples/vector.hs
index 12cbc42..855c6b4 100644
--- a/examples/vector.hs
+++ b/examples/vector.hs
@@ -12,7 +12,7 @@ import qualified Data.Vector.Storable as V
 
 fromVector :: Storable t => V.Vector t -> H.Vector t
 fromVector v = unsafeFromForeignPtr p i n where
-    (p,i,n) = V.unsafeToForeignPtr (V.copy v)
+    (p,i,n) = V.unsafeToForeignPtr v
 
 toVector :: H.Vector t -> V.Vector t
 toVector v = V.unsafeFromForeignPtr p i n where
@@ -22,8 +22,11 @@ toVector v = V.unsafeFromForeignPtr p i n where
 
 v = V.slice 5 10 (V.fromList [1 .. 10::Double] V.++ V.replicate 10 7)
 
-w = linspace 5 (0,2)
+w = subVector 2 3 (linspace 10 (0,2))
 
 main = do
+    print v
     print $ fromVector v
+    print w
     print $ toVector w
+