From 06a5933feaec26695a8ead65c90fe27f90f64be1 Mon Sep 17 00:00:00 2001
From: Dusty Phillips <dusty@phillips.codes>
Date: Fri, 23 Aug 2024 11:58:43 -0300
Subject: [PATCH] make wildcard arm exhaustively specific

---
 src/compiler/internal/transformer/statements.gleam | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/compiler/internal/transformer/statements.gleam b/src/compiler/internal/transformer/statements.gleam
index 295b775..c907b8e 100644
--- a/src/compiler/internal/transformer/statements.gleam
+++ b/src/compiler/internal/transformer/statements.gleam
@@ -145,6 +145,8 @@ fn transform_expression(
 
     glance.Block(statements) -> transform_block(context, statements)
 
+    glance.Case(..) -> todo as "case expressions not supported yet"
+
     glance.TupleIndex(tuple, index) -> {
       transform_expression(context, tuple)
       |> internal.map_return(python.TupleIndex(_, index))
@@ -164,12 +166,9 @@ fn transform_expression(
     glance.RecordUpdate(record:, fields:, ..) ->
       transform_record_update(context, record, fields)
 
-    glance.BitString(_) as expr
-    | glance.Block(_) as expr
-    | glance.Case(_, _) as expr
-    | glance.Fn(_, _, _) as expr -> {
+    glance.BitString(_) as expr -> {
       pprint.debug(expr)
-      todo as "Several expressions are not implemented yet"
+      todo as "BitString expressions not supported yet"
     }
   }
 }