Move Stream.Step to a separate module
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 8 Aug 2008 06:56:28 +0000 (06:56 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 8 Aug 2008 06:56:28 +0000 (06:56 +0000)
Data/Vector/Fusion/Stream.hs
Data/Vector/Fusion/Stream/Step.hs [new file with mode: 0644]
vector.cabal

index 99b2e7a..2be7c96 100644 (file)
@@ -56,6 +56,7 @@ module Data.Vector.Fusion.Stream (
 ) where
 
 import Data.Vector.Fusion.Stream.Size
+import Data.Vector.Fusion.Stream.Step
 
 import Prelude hiding ( length, null,
                         replicate, (++),
@@ -67,9 +68,6 @@ import Prelude hiding ( length, null,
                         foldl, foldl1, foldr, foldr1,
                         mapM_ )
 
-data Step s a = Yield a s
-              | Skip    s
-              | Done
 
 -- | The type of fusible streams
 data Stream a = forall s. Stream (s -> Step s a) s Size
diff --git a/Data/Vector/Fusion/Stream/Step.hs b/Data/Vector/Fusion/Stream/Step.hs
new file mode 100644 (file)
index 0000000..9c1bd6f
--- /dev/null
@@ -0,0 +1,8 @@
+module Data.Vector.Fusion.Stream.Step (
+  Step(..)
+) where
+
+data Step s a = Yield a s
+              | Skip    s
+              | Done
+
index 972e5b8..ac45cb5 100644 (file)
@@ -23,6 +23,7 @@ Library
   Extensions: CPP
   Exposed-Modules:
         Data.Vector.Fusion.Stream.Size
+        Data.Vector.Fusion.Stream.Step
         Data.Vector.Fusion.Stream
         Data.Vector.Fusion.MStream