From b2e83a1c0196ad3caa28fd38036996a67616dbed Mon Sep 17 00:00:00 2001
From: Aner Lucero <4rgento@gmail.com>
Date: Tue, 22 Jun 2021 10:37:45 -0300
Subject: [PATCH] Use SimpleFigure in Texinfo writer.

---
 src/Text/Pandoc/Writers/Texinfo.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Text/Pandoc/Writers/Texinfo.hs b/src/Text/Pandoc/Writers/Texinfo.hs
index 6a33b4283561b..4388d93fac9fb 100644
--- a/src/Text/Pandoc/Writers/Texinfo.hs
+++ b/src/Text/Pandoc/Writers/Texinfo.hs
@@ -123,8 +123,7 @@ blockToTexinfo (Plain lst) =
   inlineListToTexinfo lst
 
 -- title beginning with fig: indicates that the image is a figure
-blockToTexinfo (Para [Image attr txt (src,tgt)])
-  | Just tit <- T.stripPrefix "fig:" tgt = do
+blockToTexinfo (SimpleFigure attr txt src tit) = do
       capt <- if null txt
               then return empty
               else (\c -> text "@caption" <> braces c) `fmap`