diff options
Diffstat (limited to 'compiler/GHC/Data/Stream.hs')
-rw-r--r-- | compiler/GHC/Data/Stream.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/GHC/Data/Stream.hs b/compiler/GHC/Data/Stream.hs index 32d5ff7e62..d41b64b226 100644 --- a/compiler/GHC/Data/Stream.hs +++ b/compiler/GHC/Data/Stream.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DeriveFunctor #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE RankNTypes #-} -- ----------------------------------------------------------------------------- @@ -66,9 +67,7 @@ runStream st = runStreamInternal st pure Done data StreamS m a b = Yield a (StreamS m a b) | Done b | Effect (m (StreamS m a b)) - -instance Monad m => Functor (StreamS m a) where - fmap = liftM + deriving (Functor) instance Monad m => Applicative (StreamS m a) where pure = Done |