on master help sign in
Remove redundant Typeable constraint
commit746f3b2a235318157f7a5470c66c98a6fe8c8674 authorHarendra Kumar <harendra.kumar@gmail.com> dateWed 28 Jun 2017, 21:44 (9 years ago) parentbf5a118
1 file changed+1−2
src/Strands/Threads.hs+1−2
src/Strands/Threads.hs+1−2
@@ -36,7 +36,6 @@ import Control.Monad.State (get, gets, modify, mzero, put,
3636 runStateT, when, StateT)
3737import Control.Monad.Trans.Class (MonadTrans (lift))
3838import Control.Monad.Trans.Control (MonadBaseControl, liftBaseWith)
39−import Data.Dynamic (Typeable)
4039import Data.IORef (IORef, atomicModifyIORef,
4140 modifyIORef, newIORef, readIORef,
4241 writeIORef)
@@ -271,7 +270,7 @@ data StreamData a =
271270 | SLast a -- ^ This is the last task
272271 | SDone -- ^ No more tasks, we are done
273272 | SError SomeException -- ^ An error occurred
274− deriving (Typeable, Show,Read)
273+ deriving (Show, Read)
275274
276275-- The current model is to start a new thread for every task. The input is
277276-- provided at the time of the creation and therefore no synchronization is