diff options
| author | Louis Pilfold <louis@lpil.uk> | 2020-02-28 20:32:23 +0000 |
|---|---|---|
| committer | Louis Pilfold <louis@lpil.uk> | 2020-03-03 11:44:08 +0000 |
| commit | e59c44f8ecf744a6b6d561e4e5fd4f7dc0b29355 (patch) | |
| tree | 2a96fc6851b06bf7dc91a39e68462933960ab2dc /gen/src | |
| parent | 1a13f86ed842dbf771d84564f76e7400c2a81f89 (diff) | |
| download | gleam_stdlib-e59c44f8ecf744a6b6d561e4e5fd4f7dc0b29355.tar.gz gleam_stdlib-e59c44f8ecf744a6b6d561e4e5fd4f7dc0b29355.zip | |
Use new case expression features
Diffstat (limited to 'gen/src')
| -rw-r--r-- | gen/src/gleam@list.erl | 10 | ||||
| -rw-r--r-- | gen/src/gleam@order.erl | 8 |
2 files changed, 6 insertions, 12 deletions
diff --git a/gen/src/gleam@list.erl b/gen/src/gleam@list.erl index 3e6d01d..57789ff 100644 --- a/gen/src/gleam@list.erl +++ b/gen/src/gleam@list.erl @@ -253,13 +253,13 @@ strict_zip(L1, L2) -> intersperse(List, Elem) -> case List of [] -> - []; + List; - [X] -> - [X]; + [_] -> + List; - [X1 | Rest] -> - [X1, Elem | intersperse(Rest, Elem)] + [X | Rest] -> + [X, Elem | intersperse(Rest, Elem)] end. at(List, Index) -> diff --git a/gen/src/gleam@order.erl b/gen/src/gleam@order.erl index 45e6474..6306636 100644 --- a/gen/src/gleam@order.erl +++ b/gen/src/gleam@order.erl @@ -29,18 +29,12 @@ to_int(Order) -> compare(A, B) -> case {A, B} of - {lt, lt} -> + {X, Y} when X =:= Y -> eq; {lt, _} -> lt; - {eq, eq} -> - eq; - - {gt, gt} -> - eq; - {eq, gt} -> lt; |