diff options
-rw-r--r-- | src/bool.gleam | 24 | ||||
-rw-r--r-- | src/list.gleam | 13 | ||||
-rw-r--r-- | src/order.gleam | 2 | ||||
-rw-r--r-- | src/result.gleam | 2 |
4 files changed, 14 insertions, 27 deletions
diff --git a/src/bool.gleam b/src/bool.gleam index a4d6878..a409bc1 100644 --- a/src/bool.gleam +++ b/src/bool.gleam @@ -1,10 +1,4 @@ -import order:Order - -pub enum Bool = - | True - | False - -import Bool:* +import order:[GT, EQ, LT] pub fn not(bool) { case bool { @@ -23,25 +17,25 @@ test not { pub fn compare(a, b) { case (a, b) { - | (True, True) => Order:EQ - | (True, False) => Order:GT - | (False, False) => Order:EQ - | (False, True) => Order:GT + | (True, True) => EQ + | (True, False) => GT + | (False, False) => EQ + | (False, True) => GT } } test compare { compare(True, True) - |> assert:equal(_, Order:EQ) + |> assert:equal(_, EQ) compare(True, False) - |> assert:equal(_, Order:GT) + |> assert:equal(_, GT) compare(False, False) - |> assert:equal(_, Order:LT) + |> assert:equal(_, LT) compare(False, True) - |> assert:equal(_, Order:GT) + |> assert:equal(_, GT) } pub fn max(a, b) { diff --git a/src/list.gleam b/src/list.gleam index 8c269f9..03762db 100644 --- a/src/list.gleam +++ b/src/list.gleam @@ -1,12 +1,9 @@ import assert -import result:Result:* -import bool:Bool:* +import result:[Ok, Error] pub enum Error = | Empty -import Error:* - // Using the Erlang C BIF implementation. // pub external fn length(List(a)) => Int = 'erlang' 'length' @@ -197,7 +194,7 @@ pub fn new() { [] } -test new() { +test new { new() |> assert:equal(_, []) } @@ -205,7 +202,7 @@ pub fn flatten(lists) { do_flatten(lists, []) } -test flatten() { +test flatten { flatten([]) |> assert:equal(_, []) @@ -233,7 +230,7 @@ pub fn foldl(list, acc, fun) { } } -test foldl() { +test foldl { [1, 2, 3] |> foldl(_, [], fn(x, acc) { x :: acc }) |> assert:equal(_, [3, 2, 1]) @@ -246,7 +243,7 @@ pub fn foldr(list, acc, fun) { } } -test foldr() { +test foldr { [1, 2, 3] |> foldr(_, [], fn(x, acc) { x :: acc }) |> assert:equal(_, [1, 2, 3]) diff --git a/src/order.gleam b/src/order.gleam index dbeb8e1..f38d41c 100644 --- a/src/order.gleam +++ b/src/order.gleam @@ -6,8 +6,6 @@ pub enum Order = | GT ; -import Order:* - pub fn reverse(order) { case order { | LT => GT diff --git a/src/result.gleam b/src/result.gleam index 996d92a..0bb1bb1 100644 --- a/src/result.gleam +++ b/src/result.gleam @@ -9,8 +9,6 @@ pub enum Result(error, value) = | Error(error) ; -import Result:* - pub fn is_ok(result) { case result { | Error(_) => False |