From 072ebed89083305c4d84a4ffd5856578a65094c7 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Sat, 28 Jan 2012 09:44:05 +0000 Subject: [PATCH] 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 -- 1.9.1