From 501e5029131d40d6b279df316ab6bb3cd64b936a Mon Sep 17 00:00:00 2001
From: Louis Pilfold <louis@lpil.uk>
Date: Sat, 2 Feb 2019 22:23:47 +0000
Subject: Attempt to compile stdlib

---
 src/bool.gleam   | 10 +++++-----
 src/result.gleam |  9 ---------
 2 files changed, 5 insertions(+), 14 deletions(-)

(limited to 'src')

diff --git a/src/bool.gleam b/src/bool.gleam
index 69f01f9..a83391d 100644
--- a/src/bool.gleam
+++ b/src/bool.gleam
@@ -16,11 +16,11 @@ test not {
 }
 
 pub fn compare(a, b) {
-  case (a, b) {
-  | (True, True) -> Eq
-  | (True, False) -> Gt
-  | (False, False) -> Eq
-  | (False, True) -> Gt
+  case {a, b} {
+  | {True, True} -> Eq
+  | {True, False} -> Gt
+  | {False, False} -> Eq
+  | {False, True} -> Gt
   }
 }
 
diff --git a/src/result.gleam b/src/result.gleam
index 38dd552..ffd99e0 100644
--- a/src/result.gleam
+++ b/src/result.gleam
@@ -77,15 +77,6 @@ pub fn flatten(result) {
   }
 }
 
-// TODO: This one doesn't type check. I think because we don't generalize for
-// case expressions
-// pub fn flatten(result) {
-//   case result {
-//   | Ok(x) -> x
-//   | Error(_) -> result
-//   }
-// }
-
 test flatten {
   flatten(Ok(Ok(1)))
     |> expect:equal(_, Ok(1))
-- 
cgit v1.2.3