Separate subdir for fusion-related stuff
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 8 Aug 2008 04:31:04 +0000 (04:31 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 8 Aug 2008 04:31:04 +0000 (04:31 +0000)
Data/Vector/Fusion/MStream.hs [moved from Data/Vector/MStream.hs with 95% similarity]
Data/Vector/Fusion/Stream.hs [moved from Data/Vector/Stream.hs with 99% similarity]
Data/Vector/Fusion/Stream/Size.hs [moved from Data/Vector/Stream/Size.hs with 98% similarity]
Data/Vector/IVector.hs
Data/Vector/MVector.hs
Data/Vector/MVector/New.hs
vector.cabal

similarity index 95%
rename from Data/Vector/MStream.hs
rename to Data/Vector/Fusion/MStream.hs
index 3d36eb9..c3aea05 100644 (file)
@@ -2,7 +2,7 @@
 
 #include "phases.h"
 
-module Data.Vector.MStream (
+module Data.Vector.Fusion.MStream (
   MStream,
 
   sized,
@@ -12,8 +12,8 @@ module Data.Vector.MStream (
   map, mapM, filter, filterM
 ) where
 
-import Data.Vector.Stream ( Step(..) )
-import Data.Vector.Stream.Size
+import Data.Vector.Fusion.Stream ( Step(..) )
+import Data.Vector.Fusion.Stream.Size
 
 import Control.Monad  ( liftM )
 import Prelude hiding ( map, mapM, filter )
similarity index 99%
rename from Data/Vector/Stream.hs
rename to Data/Vector/Fusion/Stream.hs
index 706c1b3..99b2e7a 100644 (file)
@@ -1,7 +1,7 @@
 {-# LANGUAGE ExistentialQuantification #-}
 
 -- |
--- Module      : Data.Vector.Stream.Size
+-- Module      : Data.Vector.Fusion.Stream
 -- Copyright   : (c) Roman Leshchinskiy 2008
 -- License     : BSD-style
 --
@@ -14,7 +14,7 @@
 
 #include "phases.h"
 
-module Data.Vector.Stream (
+module Data.Vector.Fusion.Stream (
   -- * Types
   Step(..), Stream(..),
 
@@ -55,7 +55,7 @@ module Data.Vector.Stream (
   mapM_, foldM
 ) where
 
-import Data.Vector.Stream.Size
+import Data.Vector.Fusion.Stream.Size
 
 import Prelude hiding ( length, null,
                         replicate, (++),
similarity index 98%
rename from Data/Vector/Stream/Size.hs
rename to Data/Vector/Fusion/Stream/Size.hs
index 254242d..8d7704b 100644 (file)
@@ -10,7 +10,7 @@
 -- Size hints
 --
 
-module Data.Vector.Stream.Size (
+module Data.Vector.Fusion.Stream.Size (
   Size(..), smaller, larger, toMax, upperBound
 ) where
 
index 23e8c76..ce8fd99 100644 (file)
@@ -70,11 +70,11 @@ import           Data.Vector.MVector ( MVector )
 import qualified Data.Vector.MVector.New as New
 import           Data.Vector.MVector.New ( New )
 
-import qualified Data.Vector.Stream as Stream
-import           Data.Vector.Stream ( Stream )
-import qualified Data.Vector.MStream as MStream
-import           Data.Vector.MStream ( MStream )
-import           Data.Vector.Stream.Size
+import qualified Data.Vector.Fusion.Stream as Stream
+import           Data.Vector.Fusion.Stream ( Stream )
+import qualified Data.Vector.Fusion.MStream as MStream
+import           Data.Vector.Fusion.MStream ( MStream )
+import           Data.Vector.Fusion.Stream.Size
 
 import Control.Exception ( assert )
 
index 1107f73..fa06a4c 100644 (file)
@@ -21,11 +21,11 @@ module Data.Vector.MVector (
   update, reverse
 ) where
 
-import qualified Data.Vector.Stream      as Stream
-import           Data.Vector.Stream      ( Stream )
-import qualified Data.Vector.MStream     as MStream
-import           Data.Vector.MStream     ( MStream )
-import           Data.Vector.Stream.Size
+import qualified Data.Vector.Fusion.Stream      as Stream
+import           Data.Vector.Fusion.Stream      ( Stream )
+import qualified Data.Vector.Fusion.MStream     as MStream
+import           Data.Vector.Fusion.MStream     ( MStream )
+import           Data.Vector.Fusion.Stream.Size
 
 import Control.Monad.ST ( ST )
 import Control.Exception ( assert )
index d53d039..47488cb 100644 (file)
@@ -9,11 +9,11 @@ module Data.Vector.MVector.New (
 import qualified Data.Vector.MVector as MVector
 import           Data.Vector.MVector ( MVector )
 
-import           Data.Vector.Stream ( Stream )
-import qualified Data.Vector.Stream as Stream
+import           Data.Vector.Fusion.Stream ( Stream )
+import qualified Data.Vector.Fusion.Stream as Stream
 
-import           Data.Vector.MStream ( MStream )
-import qualified Data.Vector.MStream as MStream
+import           Data.Vector.Fusion.MStream ( MStream )
+import qualified Data.Vector.Fusion.MStream as MStream
 
 import Control.Monad  ( liftM )
 import Prelude hiding ( reverse, map, filter )
index e398c55..972e5b8 100644 (file)
@@ -22,9 +22,9 @@ Build-Type:     Simple
 Library
   Extensions: CPP
   Exposed-Modules:
-        Data.Vector.Stream.Size
-        Data.Vector.Stream
-        Data.Vector.MStream
+        Data.Vector.Fusion.Stream.Size
+        Data.Vector.Fusion.Stream
+        Data.Vector.Fusion.MStream
 
         Data.Vector.MVector
         Data.Vector.MVector.New