Work around for elm/core bug

elm/core#1137

Author: arowM

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

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

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