Work around for elm/core bug

elm/core#1137
arowM · Apr 30, 2023 · 9fd1f72 · 9fd1f72
1 parent f9427c9
commit 9fd1f72
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 3 deletions.
diff --git a/src/MarkdownAst.elm b/src/MarkdownAst.elm
@@ -343,7 +343,12 @@ normalizePlainText rawStr =
 
         hasLastSpace =
             String.right 1 rawStr
-                |> String.any isWhiteSpace
+                -- `|> String.any isWhiteSpace` may cause infinite loop
+                |> String.foldl
+                    (\c acc ->
+                        acc || isWhiteSpace c
+                    )
+                    False
 
         words =
             case normalizedWords rawStr of

diff --git a/src/Sample.elm b/src/Sample.elm
@@ -28,7 +28,7 @@ myMarkdown =
                         { ordered = False
                         , items =
                             [ { content =
-                                    [ Ast.PlainText "List Item 1"
+                                    [ Ast.PlainText "List Item 1😈"
                                     ]
                               , children =
                                     [ Ast.ListBlock

diff --git a/tests/MarkdownAstSuite.elm b/tests/MarkdownAstSuite.elm
@@ -18,7 +18,7 @@ Markdown AST represents *Markdown* AST.
 
 ## Section
 
-* List Item 1
+* List Item 1😈
     1. Child item
 * List Item 2