chore(GLEAM-3256): initial state for reproduction

mscharley · Jun 10, 2024 · c90f669 · c90f669
1 parent a6c970f
commit c90f669
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/src/commonmark/internal/parser.gleam b/src/commonmark/internal/parser.gleam
@@ -21,6 +21,13 @@ type BlockState {
   IndentedCodeBlockBuilder(List(String))
   BlockQuoteBuilder(List(String))
   UnorderedListBuilder(List(String), List(List(BlockParseState)), String, Int)
+  OrderedListBuilder(
+    List(String),
+    List(List(BlockParseState)),
+    String,
+    Int,
+    Int,
+  )
 }
 
 type InlineState {
@@ -35,6 +42,7 @@ pub opaque type BlockParseState {
   CodeBlock(Option(String), Option(String), String)
   BlockQuote(List(BlockParseState))
   UnorderedList(List(List(BlockParseState)), ast.UnorderedListMarker)
+  OrderedList(List(List(BlockParseState)), ast.OrderedListMarker)
 }
 
 fn ol_marker(marker: String) -> ast.OrderedListMarker {
@@ -192,6 +200,21 @@ pub fn parse_block_state(state: BlockParseState) -> ast.BlockNode {
         marker,
       )
     }
+    OrderedList(items, marker, start) -> {
+      let tight = True
+
+      ast.OrderedList(
+        items
+          |> list.map(list.map(_, parse_block_state(_)))
+          |> list.map(fn(l) {
+            case tight {
+              True -> ast.TightListItem(l)
+              False -> ast.ListItem(l)
+            }
+          }),
+        marker,
+      )
+    }
   }
 }