From 9ccf9d85a17c554f3fd78379b641467e79213413 Mon Sep 17 00:00:00 2001 From: Louis Pilfold Date: Sat, 13 Oct 2018 20:54:55 +0000 Subject: un-namespace enum constructors --- src/bool.gleam | 24 +++++++++--------------- 1 file changed, 9 insertions(+), 15 deletions(-) (limited to 'src/bool.gleam') 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) { -- cgit v1.2.3