Verified Commit a50f8666 authored by Camil Staps's avatar Camil Staps 🙂

Fix issue where the asterisk of a docline was included

parent 12840881
......@@ -220,7 +220,8 @@ prepareString :: (String -> Either ParseError [[Char]])
prepareString = checkAsterisks o map trim o break '\n' o fromString
where
checkAsterisks :: [[Char]] -> Either ParseError [[Char]]
checkAsterisks lines=:[_] = Right lines
checkAsterisks [['*':line]] = Right [safetl line]
checkAsterisks [line] = Right [line]
checkAsterisks lines
| all (\l -> isEmpty l || hd l == '*') lines
= Right $ map (safetl o dropWhile ((==) '*')) lines
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment