diff --git a/crates/cli/tests/benchmarks/cFold.roc b/crates/cli/tests/benchmarks/cFold.roc index c808cc6df1..0c8925c52f 100644 --- a/crates/cli/tests/benchmarks/cFold.roc +++ b/crates/cli/tests/benchmarks/cFold.roc @@ -5,7 +5,12 @@ import pf.PlatformTask # adapted from https://github.com/koka-lang/koka/blob/master/test/bench/haskell/cfold.hs main : Task {} [] main = - inputResult <- Task.attempt PlatformTask.getInt + { value, isError } = PlatformTask.getInt! + inputResult = + if isError then + Err GetIntError + else + Ok value when inputResult is Ok n -> diff --git a/crates/cli/tests/benchmarks/deriv.roc b/crates/cli/tests/benchmarks/deriv.roc index 66c5efa006..07865b1597 100644 --- a/crates/cli/tests/benchmarks/deriv.roc +++ b/crates/cli/tests/benchmarks/deriv.roc @@ -7,7 +7,12 @@ IO a : Task a [] main : Task {} [] main = - inputResult <- Task.attempt PlatformTask.getInt + { value, isError } = PlatformTask.getInt! + inputResult = + if isError then + Err GetIntError + else + Ok value when inputResult is Ok n -> diff --git a/crates/cli/tests/benchmarks/nQueens.roc b/crates/cli/tests/benchmarks/nQueens.roc index 9786a4c9ae..bd0d318d71 100644 --- a/crates/cli/tests/benchmarks/nQueens.roc +++ b/crates/cli/tests/benchmarks/nQueens.roc @@ -4,7 +4,12 @@ import pf.PlatformTask main : Task {} [] main = - inputResult = Task.getInt! + { value, isError } = PlatformTask.getInt! + inputResult = + if isError then + Err GetIntError + else + Ok value when inputResult is Ok n -> diff --git a/crates/cli/tests/benchmarks/platform/PlatformTask.roc b/crates/cli/tests/benchmarks/platform/PlatformTask.roc index 3f79f48e2e..d157711b1d 100644 --- a/crates/cli/tests/benchmarks/platform/PlatformTask.roc +++ b/crates/cli/tests/benchmarks/platform/PlatformTask.roc @@ -1,4 +1,4 @@ -hosted +hosted PlatformTask exposes [putLine, putInt, getInt] imports [] diff --git a/crates/cli/tests/benchmarks/rBTreeCk.roc b/crates/cli/tests/benchmarks/rBTreeCk.roc index a57c22468f..2afe6232db 100644 --- a/crates/cli/tests/benchmarks/rBTreeCk.roc +++ b/crates/cli/tests/benchmarks/rBTreeCk.roc @@ -39,7 +39,12 @@ fold = \f, tree, b -> main : Task {} [] main = - inputResult = PlatformTask.getInt! + { value, isError } = PlatformTask.getInt! + inputResult = + if isError then + Err GetIntError + else + Ok value when inputResult is Ok n -> diff --git a/crates/cli/tests/benchmarks/testAStar.roc b/crates/cli/tests/benchmarks/testAStar.roc index 9d64ee59c9..6b17ba7c7a 100644 --- a/crates/cli/tests/benchmarks/testAStar.roc +++ b/crates/cli/tests/benchmarks/testAStar.roc @@ -7,15 +7,6 @@ main : Task {} [] main = PlatformTask.putLine! (showBool test1) - n = PlatformTask.getInt! - when n is - 1 -> - PlatformTask.putLine (showBool test1) - - _ -> - ns = Num.toStr n - PlatformTask.putLine "No test $(ns)" - showBool : Bool -> Str showBool = \b -> if diff --git a/crates/cli/tests/benchmarks/testBase64.roc b/crates/cli/tests/benchmarks/testBase64.roc index e225e54210..39cbdbc2ae 100644 --- a/crates/cli/tests/benchmarks/testBase64.roc +++ b/crates/cli/tests/benchmarks/testBase64.roc @@ -10,8 +10,8 @@ main = when Base64.fromBytes (Str.toUtf8 "Hello World") is Err _ -> PlatformTask.putLine "sadness" Ok encoded -> - Task.putLine! (Str.concat "encoded: " encoded) + PlatformTask.putLine! (Str.concat "encoded: " encoded) when Base64.toStr encoded is - Ok decoded -> Task.putLine (Str.concat "decoded: " decoded) - Err _ -> Task.putLine "sadness" + Ok decoded -> PlatformTask.putLine (Str.concat "decoded: " decoded) + Err _ -> PlatformTask.putLine "sadness" diff --git a/crates/cli/tests/cli_run.rs b/crates/cli/tests/cli_run.rs index e0b6d174b6..f10ae111be 100644 --- a/crates/cli/tests/cli_run.rs +++ b/crates/cli/tests/cli_run.rs @@ -745,11 +745,11 @@ mod cli_run { r#" Compiled in ms. - Direct.roc: - 0 failed and 2 passed in ms. - Transitive.roc: 0 failed and 1 passed in ms. + + Direct.roc: + 0 failed and 2 passed in ms. "# ), );