aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-09-04 18:11:26 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2017-09-04 18:11:26 -0700
commit1d0805ce414398d5ff70c9ed3dbe1288356c7dd9 (patch)
tree418977eaad931299077a34fed45c8bf27247900c
parent76e580d5718fcbccaedcc953a05589a30e8b51d1 (diff)
downloadpandoc-1d0805ce414398d5ff70c9ed3dbe1288356c7dd9.tar.gz
HTML reader: Fix pattern match.
-rw-r--r--src/Text/Pandoc/Readers/HTML.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index 257c16735..2093be19c 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -592,7 +592,7 @@ pFigure = try $ do
case B.toList <$> mbimg of
Just [Image attr _ (url, tit)] ->
return $ B.para $ B.imageWith attr url ("fig:" ++ tit) caption
- Nothing -> mzero
+ _ -> mzero
pCodeBlock :: PandocMonad m => TagParser m Blocks
pCodeBlock = try $ do