From ae117fd8b88602ba3fd935fedee50c597dc10a6b Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Sun, 14 Oct 2018 17:26:56 +0000 Subject: Examples use -> --- src/bool.gleam | 24 +++++++++++------------ src/foreign.gleam | 4 ++-- src/list.gleam | 58 +++++++++++++++++++++++++++---------------------------- src/order.gleam | 36 +++++++++++++++++----------------- src/result.gleam | 24 +++++++++++------------ 5 files changed, 73 insertions(+), 73 deletions(-) (limited to 'src') diff --git a/src/bool.gleam b/src/bool.gleam index a409bc1..e81b3ec 100644 --- a/src/bool.gleam +++ b/src/bool.gleam @@ -2,8 +2,8 @@ import order:[GT, EQ, LT] pub fn not(bool) { case bool { - | True => False - | False => True + | True -> False + | False -> True } } @@ -17,10 +17,10 @@ test not { pub fn compare(a, b) { case (a, b) { - | (True, True) => EQ - | (True, False) => GT - | (False, False) => EQ - | (False, True) => GT + | (True, True) -> EQ + | (True, False) -> GT + | (False, False) -> EQ + | (False, True) -> GT } } @@ -40,8 +40,8 @@ test compare { pub fn max(a, b) { case a { - | True => True - | False => b + | True -> True + | False -> b } } @@ -61,8 +61,8 @@ test max { pub fn min(a, b) { case a { - | False => False - | True => b + | False -> False + | True -> b } } @@ -82,8 +82,8 @@ test min { pub fn to_int(bool) { case bool { - | False => 0 - | True => 1 + | False -> 0 + | True -> 1 } } diff --git a/src/foreign.gleam b/src/foreign.gleam index e921ea8..79002f1 100644 --- a/src/foreign.gleam +++ b/src/foreign.gleam @@ -9,7 +9,7 @@ pub external type Foreign doc """ Convert any Gleam data into Foreign data. """ -pub external fn new(a) => Foreign = 'Gleam.Foreign' 'identity' +pub external fn new(a) -> Foreign = 'Gleam.Foreign' 'identity' doc """ Unsafely cast any type into any other type.o @@ -17,7 +17,7 @@ Unsafely cast any type into any other type.o This is an escape hatch for the type system that may be useful when wrapping native Erlang APIs. It is to be used as a last measure only. """ -pub external fn unsafeCoerce(a) => b = 'Gleam.Foreign' 'identity' +pub external fn unsafeCoerce(a) -> b = 'Gleam.Foreign' 'identity' fn identity(x) { x diff --git a/src/list.gleam b/src/list.gleam index b724a5f..017f9ed 100644 --- a/src/list.gleam +++ b/src/list.gleam @@ -6,7 +6,7 @@ pub enum Error = // Using the Erlang C BIF implementation. // -pub external fn length(List(a)) => Int = 'erlang' 'length' +pub external fn length(List(a)) -> Int = 'erlang' 'length' test length { length([]) |> assert:equal(_, 0) @@ -17,7 +17,7 @@ test length { // Using the Erlang C BIF implementation. // -pub external fn reverse(List(a)) => List(a) = 'erlang' 'reverse' +pub external fn reverse(List(a)) -> List(a) = 'erlang' 'reverse' test reverse { length([]) |> assert:equal(_, []) @@ -35,9 +35,9 @@ test is_empty { pub fn member(list, elem) { case list { - | [] => False - | elem :: _ => True - | _ :: rest => member(rest, elem) + | [] -> False + | elem :: _ -> True + | _ :: rest -> member(rest, elem) } } @@ -49,8 +49,8 @@ test is_member { pub fn head(list) { case list { - | [] => Error(Empty) - | elem :: _ => Ok(elem) + | [] -> Error(Empty) + | elem :: _ -> Ok(elem) } } @@ -64,8 +64,8 @@ test head { pub fn tail(list) { case list { - | [] => Error(Empty) - | _ :: rest => Ok(rest) + | [] -> Error(Empty) + | _ :: rest -> Ok(rest) } } @@ -104,12 +104,12 @@ test filter { fn do_filter(list, fun, acc) { case list { - | [] => reverse(acc) - | x :: xs => + | [] -> reverse(acc) + | x :: xs -> new_acc = case fun(x) { - | True => x :: acc - | False => acc + | True -> x :: acc + | False -> acc } do_filter(xs, fun, new_acc) } @@ -131,18 +131,18 @@ test map { fn do_map(list, fun, acc) { case list { - | [] => reverse(acc) - | x :: xs => do_map(xs, fun, fun(x) :: acc) + | [] -> reverse(acc) + | x :: xs -> do_map(xs, fun, fun(x) :: acc) } } pub fn drop(list, n) { case n <= 0 { - | True => list - | False => + | True -> list + | False -> case list { - | [] => [] - | _ :: xs => drop(xs, n - 1) + | [] -> [] + | _ :: xs -> drop(xs, n - 1) } } } @@ -163,11 +163,11 @@ pub fn take(list, n) { fn do_take(list, n, acc) { case n <= 0 { - | True => reverse(acc) - | False => + | True -> reverse(acc) + | False -> case list { - | [] => reverse(acc) - | x :: xs => take(xs, n - 1, x :: acc) + | [] -> reverse(acc) + | x :: xs -> take(xs, n - 1, x :: acc) } } } @@ -218,15 +218,15 @@ test flatten { fn do_flatten(lists, acc) { case lists { - | [] => acc - | l :: rest => flatten(rest, acc ++ l) + | [] -> acc + | l :: rest -> flatten(rest, acc ++ l) } } pub fn foldl(list, acc, fun) { case list { - | [] => acc - | x :: rest => foldl(rest, fun(x, acc), fun) + | [] -> acc + | x :: rest -> foldl(rest, fun(x, acc), fun) } } @@ -238,8 +238,8 @@ test foldl { pub fn foldr(list, acc, fun) { case list { - | [] => acc - | x :: rest => fun(x, foldr(rest, acc, fun)) + | [] -> acc + | x :: rest -> fun(x, foldr(rest, acc, fun)) } } diff --git a/src/order.gleam b/src/order.gleam index f38d41c..8777d55 100644 --- a/src/order.gleam +++ b/src/order.gleam @@ -8,9 +8,9 @@ pub enum Order = pub fn reverse(order) { case order { - | LT => GT - | EQ => EQ - | GT => LT + | LT -> GT + | EQ -> EQ + | GT -> LT } } @@ -22,9 +22,9 @@ test reverse { pub fn to_int(order) { case order { - | LT => -1 - | EQ => 0 - | GT => 1 + | LT -> -1 + | EQ -> 0 + | GT -> 1 } } @@ -36,12 +36,12 @@ test to_int { pub fn compare(a, b) { case {a, b} { - | {LT, LT} => EQ - | {LT, _} => LT - | {EQ, EQ} => EQ - | {GT, GT} => EQ - | {EQ, GT} => LT - | _ => GT + | {LT, LT} -> EQ + | {LT, _} -> LT + | {EQ, EQ} -> EQ + | {GT, GT} -> EQ + | {EQ, GT} -> LT + | _ -> GT } } @@ -59,9 +59,9 @@ test compare { pub fn max(a, b) { case {a, b} { - | {GT, _} => GT - | {EQ, LT} => EQ - | _ => b + | {GT, _} -> GT + | {EQ, LT} -> EQ + | _ -> b } } @@ -79,9 +79,9 @@ test max { pub fn min(a, b) { case {a, b} { - | {LT, _} => LT - | {EQ, GT} => EQ - | _ => b + | {LT, _} -> LT + | {EQ, GT} -> EQ + | _ -> b } } diff --git a/src/result.gleam b/src/result.gleam index 0bb1bb1..d204b3b 100644 --- a/src/result.gleam +++ b/src/result.gleam @@ -11,8 +11,8 @@ pub enum Result(error, value) = pub fn is_ok(result) { case result { - | Error(_) => False - | Ok(_) => True + | Error(_) -> False + | Ok(_) -> True } } @@ -23,8 +23,8 @@ test is_ok { pub fn is_error(result) { case result { - | Ok(_) => False - | Error(_) => True + | Ok(_) -> False + | Error(_) -> True } } @@ -35,8 +35,8 @@ test is_error { pub fn map(result, fun) { case result { - | Ok(x) => fun(x) - | Error(_) => result + | Ok(x) -> fun(x) + | Error(_) -> result } } @@ -51,8 +51,8 @@ test map { pub fn map_error(result, fun) { case result { - | Ok(_) => result - | Error(error) => Error(fun(error)) + | Ok(_) -> result + | Error(error) -> Error(fun(error)) } } @@ -67,8 +67,8 @@ test map_error { pub fn flatten(result) { case result { - | Ok(x) => x - | Error(_) => result + | Ok(x) -> x + | Error(_) -> result } } @@ -101,8 +101,8 @@ test flat_map { pub fn unwrap(result, default) { case result { - | Ok(v) => v - | Error(_) => default + | Ok(v) -> v + | Error(_) -> default } } -- cgit v1.2.3