Shared: taskListItemFromAscii - handle empty task list case.

This commit is contained in:
John MacFarlane
2026-07-12 12:03:59 +02:00
parent 432414c236
commit 9d138e2d33
+5
View File
@@ -672,8 +672,13 @@ taskListItemFromAscii :: Extensions -> [Block] -> [Block]
taskListItemFromAscii = handleTaskListItem fromMd
where
fromMd (Str "[" : Space : Str "]" : Space : is) = Str "" : Space : is
fromMd (Str "[ ]" : Space : is) = Str "" : Space : is
fromMd (Str "[x]" : Space : is) = Str "" : Space : is
fromMd (Str "[X]" : Space : is) = Str "" : Space : is
fromMd [Str "[" , Space , Str "]"] = [Str ""]
fromMd [Str "[ ]"] = [Str ""]
fromMd [Str "[x]"] = [Str ""]
fromMd [Str "[X]"] = [Str ""]
fromMd is = is
-- | Convert a list item containing text starting with @U+2610 BALLOT BOX@