roc-lang/roc
1
1
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2024-09-22 08:17:40 +03:00
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats 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