Fix inexhaustive cases

Author: lpil

src/gleam/list.gleam

@@ -1188,6 +1188,7 @@ fn merge_up(
         order.Gt -> merge_up(na, nb - 1, a, br, [bx, ..acc], compare)
         _ -> merge_up(na - 1, nb, ar, b, [ax, ..acc], compare)
       }
+    _, _, _, _ -> acc
   }
 }
 
@@ -1211,6 +1212,7 @@ fn merge_down(
         order.Lt -> merge_down(na - 1, nb, ar, b, [ax, ..acc], compare)
         _ -> merge_down(na, nb - 1, a, br, [bx, ..acc], compare)
       }
+    _, _, _, _ -> acc
   }
 }
 

src/gleam/string.gleam

@@ -728,7 +728,7 @@ fn do_to_utf_codepoints_impl(
   case bit_array {
     <<first:utf8_codepoint, rest:bytes>> ->
       do_to_utf_codepoints_impl(rest, [first, ..acc])
-    <<>> -> acc
+    _ -> acc
   }
 }
 

src/gleam/uri.gleam

@@ -351,7 +351,7 @@ pub fn to_string(uri: Uri) -> String {
     Some(s), None, Some(h) -> [s, "://", h, ..parts]
     Some(s), Some(_), None | Some(s), None, None -> [s, ":", ..parts]
     None, None, Some(h) -> ["//", h, ..parts]
-    None, Some(_), None | None, None, None -> parts
+    _, _, _ -> parts
   }
   string.concat(parts)
 }
@@ -426,7 +426,7 @@ pub fn merge(base: Uri, relative: Uri) -> Result(Uri, Nil) {
             )
           Ok(resolved)
         }
-        Uri(scheme: None, host: None, ..) -> {
+        _ -> {
           let #(new_path, new_query) = case relative.path {
             "" -> #(base.path, option.or(relative.query, base.query))
             _ -> {