diff options
| author | Gabor Greif <ggreif@gmail.com> | 2013-04-05 20:22:35 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2013-04-06 11:41:07 +0200 |
| commit | 9b3d4cdd26a9fbf0a1183185bedbe11925b1ddb4 (patch) | |
| tree | a0476dc6ea466059cfd5a8d8677fa18b7af9b944 /compiler/utils/Stream.hs | |
| parent | b84da617c4dadcfbf47796e7a75c21d6b4c4947a (diff) | |
| download | haskell-9b3d4cdd26a9fbf0a1183185bedbe11925b1ddb4.tar.gz | |
Fix typos
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 2fa76d2345..bfc6f939b5 100644 --- a/compiler/utils/Stream.hs +++ b/compiler/utils/Stream.hs @@ -66,7 +66,7 @@ collect str = go str [] fromList :: Monad m => [a] -> Stream m a () fromList = mapM_ yield --- | Apply a function to each element of a 'Stream', lazilly +-- | Apply a function to each element of a 'Stream', lazily map :: Monad m => (a -> b) -> Stream m a x -> Stream m b x map f str = Stream $ do r <- runStream str @@ -74,7 +74,7 @@ map f str = Stream $ do Left x -> return (Left x) Right (a, str') -> return (Right (f a, Stream.map f str')) --- | Apply a monadic operation to each element of a 'Stream', lazilly +-- | Apply a monadic operation to each element of a 'Stream', lazily mapM :: Monad m => (a -> m b) -> Stream m a x -> Stream m b x mapM f str = Stream $ do r <- runStream str |