git.iko.soy/typeable/pandoc
on master help sign in
Fixed bug in spanStrikeout: case was not exhaustive.
9f871abfiddlosopher
src/Text/Pandoc/Readers/HTML.hs+1−1
compare with master
unifiedsplit
@@ -458,7 +458,7 @@ spanStrikeout = try $ do
458 (tag, attributes) <- htmlTag "span"
458 (tag, attributes) <- htmlTag "span"
459 result <- case (extractAttribute "class" attributes) of
459 result <- case (extractAttribute "class" attributes) of
460 Just "strikeout" -> inlinesTilEnd "span"
460 Just "strikeout" -> inlinesTilEnd "span"
461− Nothing -> fail "not a strikeout"
461+ _ -> fail "not a strikeout"
462 return (Strikeout result)
462 return (Strikeout result)
463
463
464strong = try (do
464strong = try (do