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

Remove unreachable branches in Program.roc

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

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

@ -62,7 +62,6 @@ noArgs = \task ->
|> Effect.map \result ->
when result is
Ok (@ExitCode u8) -> u8
Err _ -> 0 # TODO this is unreachable! Remove it after https://github.com/roc-lang/roc/issues/4054 lands
InternalProgram.fromEffect effect
@ -83,7 +82,6 @@ withArgs = \toTask ->
|> Effect.map \result ->
when result is
Ok (@ExitCode u8) -> u8
Err _ -> 0 # TODO this is unreachable! Remove it after https://github.com/roc-lang/roc/issues/4054 lands
InternalProgram.fromEffect effect
@ -108,7 +106,6 @@ withEnv = \toTask ->
|> Effect.map \result ->
when result is
Ok (@ExitCode code) -> code
Err _ -> 0 # TODO this is unreachable! Remove it after https://github.com/roc-lang/roc/issues/4054 lands
InternalProgram.fromEffect effect