Skip zip7-zip12 in Unboxed for now
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sun, 6 Dec 2009 13:23:54 +0000 (13:23 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sun, 6 Dec 2009 13:23:54 +0000 (13:23 +0000)
Data/Vector/Unboxed.hs
Data/Vector/Unboxed/Mutable.hs

index fcb561e..e627017 100644 (file)
@@ -23,9 +23,8 @@ module Data.Vector.Unboxed (
 
   -- * Zipping and unzipping
   zipWith, zipWith3,
-  zip, zip3, zip4, zip5, zip6, zip7, zip8, zip9, zip10, zip11, zip12,
-  unzip, unzip3, unzip4, unzip5, unzip6, unzip7, unzip8, unzip9, unzip10,
-  unzip11, unzip12,
+  zip, zip3, zip4, zip5, zip6,
+  unzip, unzip3, unzip4, unzip5, unzip6,
 
   -- * Filtering
   filter, takeWhile, dropWhile,
@@ -56,6 +55,7 @@ module Data.Vector.Unboxed (
 
 import Data.Vector.Unboxed.Base
 import qualified Data.Vector.Generic as G
+import qualified Data.Vector.Fusion.Stream as Stream
 
 import Prelude hiding ( length, null,
                         replicate, (++),
@@ -70,6 +70,8 @@ import Prelude hiding ( length, null,
                         scanl, scanl1,
                         enumFromTo, enumFromThenTo )
 
+#include "vector.h"
+
 -- Length
 -- ------
 
index 0a8957b..c211cc7 100644 (file)
@@ -19,6 +19,8 @@ import Control.Monad.Primitive
 
 import Prelude hiding ( zip, zip3, unzip, unzip3, length, read )
 
+#include "vector.h"
+
 -- | Yield a part of the mutable vector without copying it. No bounds checks
 -- are performed.
 unsafeSlice :: Unbox a => MVector s a -> Int  -- ^ starting index