From 1d0805ce414398d5ff70c9ed3dbe1288356c7dd9 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 4 Sep 2017 18:11:26 -0700
Subject: [PATCH] HTML reader: Fix pattern match.

---
 src/Text/Pandoc/Readers/HTML.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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