diff options
| author | Louis Pilfold <louis@lpil.uk> | 2019-02-02 22:23:47 +0000 |
|---|---|---|
| committer | Louis Pilfold <louis@lpil.uk> | 2019-02-02 22:23:47 +0000 |
| commit | 501e5029131d40d6b279df316ab6bb3cd64b936a (patch) | |
| tree | 5c65df264383b929b46fc96c5e1ff0ea7c7e67ae | |
| parent | 466eda4accdaa2e70b4f16a5dc885dcb23d8dac5 (diff) | |
| download | gleam_stdlib-501e5029131d40d6b279df316ab6bb3cd64b936a.tar.gz gleam_stdlib-501e5029131d40d6b279df316ab6bb3cd64b936a.zip | |
Attempt to compile stdlib
| -rw-r--r-- | src/bool.gleam | 10 | ||||
| -rw-r--r-- | src/result.gleam | 9 |
2 files changed, 5 insertions, 14 deletions
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)) |