[commit: vector] : Delete dead code (072ebed)

[Geoffrey Mainland]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/072ebed89083305c4d84a4ffd5856578a65094c7

>---------------------------------------------------------------

commit 072ebed89083305c4d84a4ffd5856578a65094c7
Author: Roman Leshchinskiy <rl at cse.unsw.edu.au>
Date:   Sat Jan 28 09:44:05 2012 +0000

    Delete dead code

>---------------------------------------------------------------

 Data/Vector/Fusion/Stream/Monadic.hs |   20 --------------------
 1 file changed, 20 deletions(-)

diff --git a/Data/Vector/Fusion/Stream/Monadic.hs b/Data/Vector/Fusion/Stream/Monadic.hs
index e8a1262..a754fb2 100644
--- a/Data/Vector/Fusion/Stream/Monadic.hs
+++ b/Data/Vector/Fusion/Stream/Monadic.hs
@@ -135,26 +135,6 @@ data Chunk v a = Chunk Int (forall m. (PrimMonad m, Vector v a) => Mutable v (Pr
 
 data Unf m a = forall s. Unf (s -> m (Step s a)) s
 
-{-
-unvector :: (Monad m, Vector v a) => Unf m (Either a (v a)) -> Unf m a
-{-# INLINE unvector #-}
-unvector (Unf step s) = Unf step' (Left s)
-  where
-    step' (Left s) = do
-                       r <- step s
-                       case r of
-                         Yield (Left  x) s' -> return $ Yield x (Left s')
-                         Yield (Right v) s' -> basicLength v `seq`
-                                               return (Skip (Right (v,0,s')))
-                         Skip            s' -> return $ Skip (Left s')
-                         Done               -> return Done
-
-    step' (Right (v,i,s))
-      | i >= basicLength v = return $ Skip (Left s)
-      | otherwise          = case basicUnsafeIndexM v i of
-                               Box x -> return $ Yield x (Right (v,i+1,s))
--}
-
 instance Monad m => Functor (Unf m) where
   {-# INLINE fmap #-}
   fmap f (Unf step s) = Unf step' s