Как мне выйти из цикла в Haskell?
текущая версия учебника по трубам, использует следующие две функции в одном из примеров:
stdout :: () -> Consumer String IO r
stdout () = forever $ do
str Producer String IO ()
stdin () = loop
where
loop = do
eof