Inline: fix type of Image.caption.

Fixed marshaling of image captions; they were previously pushed incorrectly as sequences of type List instead of Inlines.
pandoc · Feb 14, 2022 · 2a185ae · 2a185ae
1 parent 3a24794
commit 2a185ae
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/Text/Pandoc/Lua/Marshal/Inline.hs b/src/Text/Pandoc/Lua/Marshal/Inline.hs
@@ -127,7 +127,7 @@ typeInline = deftype "Inline"
           _               -> const Absent)
 
   , possibleProperty "caption" "image caption"
-      (pushPandocList pushInline, \case
+      (pushInlines, \case
           Image _ capt _ -> Actual capt
           _              -> Absent)
       (peekInlinesFuzzy, \case

diff --git a/test/test-inline.lua b/test/test-inline.lua
@@ -60,12 +60,16 @@ return {
       end)
     },
     group 'Image' {
-      test('has property `caption`', function ()
+      test('has property `caption` of type Inlines', function ()
         local img = Image('example', 'a.png')
         assert.are_same(img.caption, {Str 'example'})
 
         img.caption = 'A'
         assert.are_equal(img, Image({'A'}, 'a.png'))
+        assert.are_equal(
+          Image('example', 'a.png').caption,
+          Inlines('example')
+        )
       end),
       test('has property `src`', function ()
         local img = Image('example', 'sample.png')