diff options
Diffstat (limited to 'compiler/utils/Stream.hs')
| -rw-r--r-- | compiler/utils/Stream.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Stream.hs b/compiler/utils/Stream.hs index edb0b0c558..fcef97b654 100644 --- a/compiler/utils/Stream.hs +++ b/compiler/utils/Stream.hs @@ -46,11 +46,11 @@ instance Monad f => Functor (Stream f a) where fmap = liftM instance Monad m => Applicative (Stream m a) where - pure = return + pure a = Stream (return (Left a)) (<*>) = ap instance Monad m => Monad (Stream m a) where - return a = Stream (return (Left a)) + return = pure Stream m >>= k = Stream $ do r <- m |