Skip to content

Commit f7abe20

Browse files
authored
minor improvements
1 parent a46e0ce commit f7abe20

File tree

2 files changed

+9
-4
lines changed

2 files changed

+9
-4
lines changed

examples/TaskLoop/main.roc

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,7 +11,8 @@ run : Task {} _
1111
run =
1212
Stdout.line! "Enter some numbers on different lines, then press Ctrl-D to sum them up."
1313

14-
sum = Task.loop! 0 addNumberFromStdin
14+
startNum = 0
15+
sum = Task.loop! startNum addNumberFromStdin
1516

1617
Stdout.line! "Sum: $(Num.toStr sum)"
1718

examples/Tasks/main.roc

Lines changed: 7 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -15,11 +15,15 @@ run =
1515
startTime = Utc.now!
1616

1717
# Read the HELLO environment variable
18-
helloEnvVar =
18+
helloEnvVarStateStr =
1919
readEnvVar "HELLO"
20-
|> Task.map! \msg -> if Str.isEmpty msg then "was empty" else "was set to $(msg)"
20+
|> Task.map! \envVarStr ->
21+
if Str.isEmpty envVarStr then
22+
"HELLO env var was empty."
23+
else
24+
"HELLO env var was set to $(envVarStr)."
2125

22-
Stdout.line! "HELLO env var $(helloEnvVar)"
26+
Stdout.line! helloEnvVarStateStr
2327

2428
# Read command line arguments
2529
{ url, outputPath } = readArgs!

0 commit comments

Comments
 (0)