aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/RTF.hs
diff options
context:
space:
mode:
authorVaclav Haisman <vhaisman@gmail.com>2017-11-03 01:21:21 +0100
committerVaclav Haisman <vhaisman@gmail.com>2017-11-03 01:21:21 +0100
commit1089fab0835aa12b91a924913b00039e42ff7891 (patch)
tree3df0eebbf53e475125d5743f5ee331246c44ce2a /src/Text/Pandoc/Writers/RTF.hs
parent916a80ea7685262bc4fda2565deacdcb1c6e623c (diff)
parent5dfe131ee07065dc7b68912d9a068508e29e18a4 (diff)
downloadpandoc-1089fab0835aa12b91a924913b00039e42ff7891.tar.gz
Merge remote-tracking branch 'upstream/master'
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 917fef3eb..955b3f7f1 100644
--- a/src/Text/Pandoc/Writers/RTF.hs
+++ b/src/Text/Pandoc/Writers/RTF.hs
@@ -326,7 +326,7 @@ tableItemToRTF indent alignment item = do
spaceAtEnd :: String -> String
spaceAtEnd str =
if "\\par}\n" `isSuffixOf` str
- then take ((length str) - 6) str ++ "\\sa180\\par}\n"
+ then take (length str - 6) str ++ "\\sa180\\par}\n"
else str
-- | Convert list item (list of blocks) to RTF.