Pagwin/psb
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity

fixed some tests

Browse source
This commit is contained in:
Pagwin 2025-11-30 00:34:48 -05:00
parent 44b79e1320
commit a503404212
No known key found for this signature in database
GPG key ID: 81137023740CA260
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/Markdown.hs
View file

@ -173,7 +173,7 @@ unorderedListItem = do
indentedList :: (Logger m, Token s ~ Char, Stream s, IsString (Tokens s)) => ParserTG s m List indentedList :: (Logger m, Token s ~ Char, Stream s, IsString (Tokens s)) => ParserTG s m List
indentedList = do indentedList = do
let n = 1 let n = 1
void $ count (4 * n) (char ' ') <|> count n (char '\t') void $ (count (4 * n) (char ' ')) <|> count n (char '\t')
choice [try indentedUnorderedList, indentedOrderedList] choice [try indentedUnorderedList, indentedOrderedList]
indentedUnorderedList :: (Logger m, Token s ~ Char, Stream s, IsString (Tokens s)) => ParserTG s m List indentedUnorderedList :: (Logger m, Token s ~ Char, Stream s, IsString (Tokens s)) => ParserTG s m List

4
app/Tests/Markdown/Parse.hs
View file

@ -234,7 +234,7 @@ nested_unordered_list = property $ do
item_1 <- text_gen item_1 <- text_gen
item_2 <- text_gen item_2 <- text_gen
item_3 <- text_gen item_3 <- text_gen
let input = "- " <> item_1 <> "\n\n -" <> item_2 <> "\n\n- " <> item_3 let input = "- " <> item_1 <> "\n -" <> item_2 <> "\n- " <> item_3
parsed <- generic_parse input parsed <- generic_parse input
case parsed of case parsed of
@ -262,7 +262,7 @@ header_then_ordered_list = property $ do
item_1 <- text_gen item_1 <- text_gen
item_2 <- text_gen item_2 <- text_gen
item_3 <- text_gen item_3 <- text_gen
let input = (T.pack $ take header_level $ repeat '#') <> header <> "1) " <> item_1 <> "\n2) " <> item_2 <> "\n3) " <> item_3 let input = (T.pack $ take header_level $ repeat '#') <> header <> "\n\n1) " <> item_1 <> "\n2) " <> item_2 <> "\n3) " <> item_3
parsed <- generic_parse input parsed <- generic_parse input