mirror of
https://github.com/roc-lang/roc.git
synced 2025-10-02 00:01:16 +00:00
8dedd9f03c
Implements the new app header syntax as discussed in Zulip [1].
app [main] {
cli: platform "../platform/main.roc",
json: "../json/main.roc"
}
Old headers still parse and are automatically upgraded to the new
syntax by the formatter.
[1] 418444862
31 lines
1.1 KiB
Text
31 lines
1.1 KiB
Text
app [main] { pf: platform "https://github.com/roc-lang/basic-cli/releases/download/0.10.0/vNe6s9hWzoTZtFmNkvEICPErI9ptji_ySjicO6CkucY.tar.br" }
|
|
|
|
import pf.Stdout
|
|
import pf.Stderr
|
|
import pf.Env
|
|
import pf.Task exposing [Task]
|
|
|
|
main =
|
|
task =
|
|
Env.decode "EDITOR"
|
|
|> Task.await (\editor -> Stdout.line "Your favorite editor is $(editor)!")
|
|
|> Task.await (\{} -> Env.decode "SHLVL")
|
|
|> Task.await
|
|
(\lvl ->
|
|
when lvl is
|
|
1u8 -> Stdout.line "You're running this in a root shell!"
|
|
n ->
|
|
lvlStr = Num.toStr n
|
|
|
|
Stdout.line "Your current shell level is $(lvlStr)!")
|
|
|> Task.await \{} -> Env.decode "LETTERS"
|
|
|
|
Task.attempt task \result ->
|
|
when result is
|
|
Ok letters ->
|
|
joinedLetters = Str.joinWith letters " "
|
|
|
|
Stdout.line "Your favorite letters are: $(joinedLetters)"
|
|
|
|
Err _ ->
|
|
Stderr.line "I couldn't find your favorite letters in the environment variables!"
|