aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Lua/Marshaling
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-10-26 21:48:56 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2021-10-26 21:48:56 -0700
commit2910f9f3f856552b33ada842e3eb485717db100a (patch)
tree1c21b727be8fff69150011b9299115600dbaa907 /src/Text/Pandoc/Lua/Marshaling
parentb95e864ecfc0a0ef96fa09d4118c8e6b4033784c (diff)
downloadpandoc-2910f9f3f856552b33ada842e3eb485717db100a.tar.gz
Fix a copy/paste bug in Lua marshalling code.
This led changes in link properties in Lua filters to change the links into images! Closes #7639.
Diffstat (limited to 'src/Text/Pandoc/Lua/Marshaling')
-rw-r--r--src/Text/Pandoc/Lua/Marshaling/AST.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Lua/Marshaling/AST.hs b/src/Text/Pandoc/Lua/Marshaling/AST.hs
index d723fcb4c..6bb4fd4e0 100644
--- a/src/Text/Pandoc/Lua/Marshaling/AST.hs
+++ b/src/Text/Pandoc/Lua/Marshaling/AST.hs
@@ -732,7 +732,7 @@ typeInline = deftype "Inline"
Link _ _ (tgt, _) -> Actual tgt
_ -> Absent)
(peekText, \case
- Link attr capt (_, title) -> Actual . Image attr capt . (,title)
+ Link attr capt (_, title) -> Actual . Link attr capt . (,title)
_ -> const Absent)
, possibleProperty "title" "title text"
(pushText, getInlineTitle)