git.iko.soy/typeable/pandoc
on master help sign in
Fixed bug in spanStrikeout: case was not exhaustive.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@786 788f1e2b-df1e-0410-8736-df70ead52e1b

commit9f871ab1ec59f7c67a71263979a27792780dc5f7 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateMon 23 Jul 2007, 02:28 (19 years ago) parentbad26d5
1 file changed+1−1
compare with master
unifiedsplit
src/Text/Pandoc/Readers/HTML.hs+1−1
src/Text/Pandoc/Readers/HTML.hs+1−1
@@ -458,7 +458,7 @@ spanStrikeout = try $ do
458458 (tag, attributes) <- htmlTag "span"
459459 result <- case (extractAttribute "class" attributes) of
460460 Just "strikeout" -> inlinesTilEnd "span"
461− Nothing -> fail "not a strikeout"
461+ _ -> fail "not a strikeout"
462462 return (Strikeout result)
463463
464464strong = try (do