Fix parsing of indented unordered lists to match GFM

Fixes issue dillonkearns#107
Viir · Sep 22, 2021 · 1ab7a00 · 1ab7a00
1 parent 1b0b3dc
commit 1ab7a00
Showing 1 changed file with 15 additions and 7 deletions.
diff --git a/src/Markdown/UnorderedList.elm b/src/Markdown/UnorderedList.elm
@@ -38,13 +38,21 @@ parser previousWasBody =
 unorderedListMarkerParser : Parser UnorderedListMarker
 unorderedListMarkerParser =
     oneOf
-        [ succeed Minus
-            |. Extra.upTo 3 Whitespace.space
-            |. Advanced.symbol (Advanced.Token "-" (Parser.ExpectingSymbol "-"))
-        , succeed Plus
-            |. Advanced.symbol (Advanced.Token "+" (Parser.ExpectingSymbol "+"))
-        , succeed Asterisk
-            |. Advanced.symbol (Advanced.Token "*" (Parser.ExpectingSymbol "*"))
+        [ backtrackable
+            (succeed Minus
+                |. Extra.upTo 3 Whitespace.space
+                |. Advanced.symbol (Advanced.Token "-" (Parser.ExpectingSymbol "-"))
+            )
+        , backtrackable
+            (succeed Plus
+                |. Extra.upTo 3 Whitespace.space
+                |. Advanced.symbol (Advanced.Token "+" (Parser.ExpectingSymbol "+"))
+            )
+        , backtrackable
+            (succeed Asterisk
+                |. Extra.upTo 3 Whitespace.space
+                |. Advanced.symbol (Advanced.Token "*" (Parser.ExpectingSymbol "*"))
+            )
         ]