mirror of
https://github.com/roc-lang/roc.git
synced 2025-11-02 13:58:50 +00:00
20 lines
648 B
Text
20 lines
648 B
Text
app "form"
|
|
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
|
|
imports [pf.Stdin, pf.Stdout, pf.Task.{ await, Task }]
|
|
provides [main] to pf
|
|
|
|
main : Task {} I32
|
|
main =
|
|
_ <- await (Stdout.line "What's your first name?")
|
|
firstName <- await Stdin.line
|
|
|
|
_ <- await (Stdout.line "What's your last name?")
|
|
lastName <- await Stdin.line
|
|
|
|
Stdout.line "Hi, $(unwrap firstName) $(unwrap lastName)! 👋"
|
|
|
|
unwrap : [Input Str, End] -> Str
|
|
unwrap = \input ->
|
|
when input is
|
|
Input line -> line
|
|
End -> "Received end of input (EOF)."
|