diff options
| -rw-r--r-- | src/Text/Pandoc/Lua/Marshaling/AST.hs | 2 |
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) |