@@ -879,18 +879,18 @@ bulletListStart = bulletListStart' Nothing
880bulletListStart' :: Maybe Int -> OrgParser Int
880bulletListStart' :: Maybe Int -> OrgParser Int
881-- returns length of bulletList prefix, inclusive of marker
881-- returns length of bulletList prefix, inclusive of marker
882−bulletListStart' Nothing = do ind <- many spaceChar
882+bulletListStart' Nothing = do ind <- length <$> many spaceChar
883+ when (ind == 0) $ notFollowedBy (char '*')
883 oneOf bullets
884 oneOf bullets
884 many1 spaceChar
885 many1 spaceChar
885− return $ length ind + 1
886+ return (ind + 1)
886 -- Unindented lists are legal, but they can't use '*' bullets
887 -- Unindented lists are legal, but they can't use '*' bullets
887 -- We return n to maintain compatibility with the generic listItem
888 -- We return n to maintain compatibility with the generic listItem
888bulletListStart' (Just n) = do count (n-1) spaceChar
889bulletListStart' (Just n) = do count (n-1) spaceChar
889− oneOf validBullets
890+ when (n == 1) $ notFollowedBy (char '*')
890 many1 spaceChar
892 many1 spaceChar
892− where validBullets = if n == 1 then noAsterisks else bullets
893− noAsterisks = filter (/= '*') bullets
895bullets :: String
895bullets :: String
896bullets = "*+-"
896bullets = "*+-"