mirror of
https://github.com/ilyakooo0/streamly.git
synced 2024-10-06 21:27:35 +03:00
19 lines
396 B
Haskell
19 lines
396 B
Haskell
import Control.Monad.IO.Class (liftIO)
|
|
import Data.Monoid ((<>))
|
|
|
|
import Asyncly (AsyncT, runAsyncly)
|
|
|
|
input :: AsyncT IO String
|
|
input = do
|
|
string <- liftIO getLine
|
|
return string <> input
|
|
|
|
output :: AsyncT IO String -> AsyncT IO ()
|
|
output strings = do
|
|
s <- strings
|
|
liftIO $ putStrLn s
|
|
|
|
main = do
|
|
putStrLn "Type something and press enter, repeat"
|
|
runAsyncly $ output input
|