language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-08-04 04:08:19 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

Simplify CLI platform arms further

Browse source
This commit is contained in:
Ayaz Hafiz 2022-09-20 14:30:25 -05:00
parent 412c73c54c
commit 0cb48c6404
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
1 changed files with 3 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

12
examples/interactive/cli-platform/Program.roc
View file

@ -59,9 +59,7 @@ noArgs : Task ExitCode [] * -> Program
noArgs = \task ->
effect =
InternalTask.toEffect task
|> Effect.map \result ->
when result is
Ok (@ExitCode u8) -> u8
|> Effect.map \Ok (@ExitCode u8) -> u8
InternalProgram.fromEffect effect
@ -79,9 +77,7 @@ withArgs = \toTask ->
effect = Effect.after Effect.args \args ->
toTask args
|> InternalTask.toEffect
|> Effect.map \result ->
when result is
Ok (@ExitCode u8) -> u8
|> Effect.map \Ok (@ExitCode u8) -> u8
InternalProgram.fromEffect effect
@ -103,9 +99,7 @@ withEnv = \toTask ->
toTask args dict
|> InternalTask.toEffect
|> Effect.map \result ->
when result is
Ok (@ExitCode code) -> code
|> Effect.map \Ok (@ExitCode u8) -> u8
InternalProgram.fromEffect effect