@@ -36,7 +36,6 @@ import Control.Monad.State (get, gets, modify, mzero, put,
36 runStateT, when, StateT)
36 runStateT, when, StateT)
37import Control.Monad.Trans.Class (MonadTrans (lift))
37import Control.Monad.Trans.Class (MonadTrans (lift))
38import Control.Monad.Trans.Control (MonadBaseControl, liftBaseWith)
38import Control.Monad.Trans.Control (MonadBaseControl, liftBaseWith)
39−import Data.Dynamic (Typeable)
40import Data.IORef (IORef, atomicModifyIORef,
39import Data.IORef (IORef, atomicModifyIORef,
41 modifyIORef, newIORef, readIORef,
40 modifyIORef, newIORef, readIORef,
42 writeIORef)
41 writeIORef)
@@ -271,7 +270,7 @@ data StreamData a =
271 | SLast a -- ^ This is the last task
270 | SLast a -- ^ This is the last task
272 | SDone -- ^ No more tasks, we are done
271 | SDone -- ^ No more tasks, we are done
273 | SError SomeException -- ^ An error occurred
272 | SError SomeException -- ^ An error occurred
274− deriving (Typeable, Show,Read)
273+ deriving (Show, Read)
276-- The current model is to start a new thread for every task. The input is
275-- The current model is to start a new thread for every task. The input is
277-- provided at the time of the creation and therefore no synchronization is
276-- provided at the time of the creation and therefore no synchronization is