mirror of
https://github.com/chrisdone/duet.git
synced 2025-01-08 23:18:45 +03:00
10 lines
209 B
Haskell
10 lines
209 B
Haskell
data Terminal a
|
|
= GetLine (String -> Terminal a)
|
|
| PutStrLn String (Terminal a)
|
|
| Pure a
|
|
|
|
main =
|
|
PutStrLn
|
|
"Please enter your name: "
|
|
(GetLine (\line -> PutStrLn (append "Hello, " line) (Pure 0)))
|