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@order.erl | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'gen/src/gleam@order.erl') 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; -- cgit v1.2.3