aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/RTF.hs
diff options
context:
space:
mode:
authormb21 <mb21@users.noreply.github.com>2015-07-26 18:30:47 +0200
committermb21 <mb21@users.noreply.github.com>2015-08-07 12:38:37 +0200
commita010b83a7542d1324bde3d248c24faae9e681dbd (patch)
treeed0727d31576f5d07e5e31d6611e124b54c0b823 /src/Text/Pandoc/Writers/RTF.hs
parente44fc547a5d0ef67c68011c23563fd82320bc2aa (diff)
downloadpandoc-a010b83a7542d1324bde3d248c24faae9e681dbd.tar.gz
Updated readers, writers and README for link attribute
Diffstat (limited to 'src/Text/Pandoc/Writers/RTF.hs')
-rw-r--r--src/Text/Pandoc/Writers/RTF.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/RTF.hs b/src/Text/Pandoc/Writers/RTF.hs
index c89e88fad..dabe5cf78 100644
--- a/src/Text/Pandoc/Writers/RTF.hs
+++ b/src/Text/Pandoc/Writers/RTF.hs
@@ -350,7 +350,7 @@ inlineToRTF (RawInline f str)
| otherwise = ""
inlineToRTF (LineBreak) = "\\line "
inlineToRTF Space = " "
-inlineToRTF (Link text (src, _)) =
+inlineToRTF (Link _ text (src, _)) =
"{\\field{\\*\\fldinst{HYPERLINK \"" ++ (codeStringToRTF src) ++
"\"}}{\\fldrslt{\\ul\n" ++ (inlineListToRTF text) ++ "\n}}}\n"
inlineToRTF (Image _ _ (source, _)) =