diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-23 02:28:15 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-23 02:28:15 +0000 |
commit | 9f871ab1ec59f7c67a71263979a27792780dc5f7 (patch) | |
tree | c7a200c5fb589e30ebfd04408f54db9c04d5e3b4 /src/Text/Pandoc | |
parent | bad26d5e2a22ff6ac18e37899574d8fcda1ca386 (diff) | |
download | pandoc-9f871ab1ec59f7c67a71263979a27792780dc5f7.tar.gz |
Fixed bug in spanStrikeout: case was not exhaustive.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@786 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 3fbf9e426..8fff78ac1 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -458,7 +458,7 @@ spanStrikeout = try $ do (tag, attributes) <- htmlTag "span" result <- case (extractAttribute "class" attributes) of Just "strikeout" -> inlinesTilEnd "span" - Nothing -> fail "not a strikeout" + _ -> fail "not a strikeout" return (Strikeout result) strong = try (do |