From e59c44f8ecf744a6b6d561e4e5fd4f7dc0b29355 Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Fri, 28 Feb 2020 20:32:23 +0000 Subject: Use new case expression features --- gen/src/gleam@list.erl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'gen/src/gleam@list.erl') 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) -> -- cgit v1.2.3