From cce49c5d4b7429ca3455d356dff59f404f7e6d4b Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Tue, 2 Nov 2021 17:38:49 +0100
Subject: [PATCH] Lua: be more forgiving when retrieving the Image `caption`
 property

Fixes a regression introduced in 2.15.
---
 src/Text/Pandoc/Lua/Marshaling/AST.hs | 2 +-
 test/lua/module/pandoc.lua            | 9 +++++++++
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Lua/Marshaling/AST.hs b/src/Text/Pandoc/Lua/Marshaling/AST.hs
index 469dd4285..4363f7e4f 100644
--- a/src/Text/Pandoc/Lua/Marshaling/AST.hs
+++ b/src/Text/Pandoc/Lua/Marshaling/AST.hs
@@ -710,7 +710,7 @@ typeInline = deftype "Inline"
       (pushPandocList pushInline, \case
           Image _ capt _ -> Actual capt
           _              -> Absent)
-      (peekInlines, \case
+      (peekInlinesFuzzy, \case
           Image attr _ target -> Actual . (\capt -> Image attr capt target)
           _                   -> const Absent)
   , possibleProperty "citations" "list of citations"
diff --git a/test/lua/module/pandoc.lua b/test/lua/module/pandoc.lua
index 9f5f5c771..be1cbbde1 100644
--- a/test/lua/module/pandoc.lua
+++ b/test/lua/module/pandoc.lua
@@ -191,6 +191,15 @@ return {
         assert.are_equal(pandoc.Code('1 + 1'), code)
       end),
     },
+    group 'Image' {
+      test('has property `caption`', function ()
+        local img = pandoc.Image('example', 'a.png')
+        assert.are_same(img.caption, {pandoc.Str 'example'})
+
+        img.caption = {pandoc.Str 'A'}
+        assert.are_equal(img, pandoc.Image({pandoc.Str 'A'}, 'a.png'))
+      end),
+    },
     group 'Link' {
       test('has property `content`', function ()
         local link = pandoc.Link('example', 'https://example.org')