Fix small Gleam mistakes

2 files changed, 17 insertions, 8 deletions

diff --git a/src/List.gleam b/src/List.gleam
index 216cd9c..acd349c 100644
--- a/src/List.gleam
+++ b/src/List.gleam
@@ -1,11 +1,13 @@
 import Result:Result:*
+import Bool:Bool:*
 
 pub type Err =
   | Empty
+;
 
 // Using the Erlang C BIF implementation.
 //
-external fn length(List(a)) { Int } = 'erlang' 'length'
+pub external fn length(List(a)) { Int } = 'erlang' 'length'
 
 test length {
   length([]) |> Assert.equal(_, 0)
@@ -150,6 +152,7 @@ test drop/2 {
   []
     |> drop(_, 5)
     |> Assert.equal(_, [])
+
   [1, 2, 3, 4, 5, 6, 7, 8]
     |> drop(_, 5)
     |> Assert.equal(_, [6, 7, 8])
@@ -201,10 +204,17 @@ pub fn flatten(lists) {
 }
 
 test flatten() {
-  flatten([]) |> Assert.equal(_, [])
-  flatten([[]]) |> Assert.equal(_, [])
-  flatten([[], [], []]) |> Assert.equal(_, [])
-  flatten([[1, 2], [], [3, 4]]) |> Assert.equal(_, [1, 2, 3, 4])
+  flatten([])
+    |> Assert.equal(_, [])
+
+  flatten([[]])
+    |> Assert.equal(_, [])
+
+  flatten([[], [], []])
+    |> Assert.equal(_, [])
+
+  flatten([[1, 2], [], [3, 4]])
+    |> Assert.equal(_, [1, 2, 3, 4])
 }
 
 fn do_flatten(lists, acc) {
@@ -236,6 +246,6 @@ pub fn foldr(list, acc, fun) {
 
 test foldr() {
   [1, 2, 3]
-    |> foldr(_, [], |x, acc| x :: acc)
+    |> foldr(_, [], fn(x, acc) { x :: acc })
     |> Assert.equal(_, [1, 2, 3])
 }
diff --git a/src/Order.gleam b/src/Order.gleam
index 3152d33..34e0dcc 100644
--- a/src/Order.gleam
+++ b/src/Order.gleam
@@ -2,11 +2,10 @@ type Order =
   | LT
   | EQ
   | GT
+;
 
 import Order:*
 
-; // Fix GitHub syntax highlighting
-
 pub fn reverse(order) {
   case order {
   | LT => GT