@@ -236,7 +236,7 @@ import Control.Monad.Trans.Class (MonadTrans (lift))
236-- forever:
236-- forever:
239−-- > runStream $ cycle1 (S.once getLine) & S.mapM putStrLn
239+-- > runStream $ S.repeatM getLine & S.mapM putStrLn
242-- The following code snippet reads lines from standard input, filters blank
242-- The following code snippet reads lines from standard input, filters blank
@@ -248,9 +248,9 @@ import Control.Monad.Trans.Class (MonadTrans (lift))
248-- import qualified Streamly.Prelude as S
248-- import qualified Streamly.Prelude as S
249-- import Data.Char (toUpper)
249-- import Data.Char (toUpper)
250-- import Data.Function ((&))
250-- import Data.Function ((&))
251−-- import Data.Semigroup (cycle1)
253−-- main = runStream $ cycle1 (S.once getLine)
252+-- main = runStream $
254-- & S.filter (not . null)
254-- & S.filter (not . null)
255-- & S.drop 1
255-- & S.drop 1
256-- & S.take 2
256-- & S.take 2