LaTeX writer: minor tweak to hypertarget (semantically irrelevant).

2017-03-02 11:53:17 +01:00 · 2017-03-02 11:53:17 +01:00 · 9e50319df3
commit 9e50319df3
parent a69cfa0178
1 changed files with 3 additions and 1 deletions
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@ -841,7 +841,9 @@ hypertarget addnewline ident x = do
  ref <- text `fmap` toLabel ident
  return $ text "\\hypertarget"
              <> braces ref
-              <> braces ((if addnewline then ("%" <> cr) else empty) <> x)
+              <> braces ((if addnewline && not (isEmpty x)
+                             then ("%" <> cr)
+                             else empty) <> x)

 labelFor :: PandocMonad m => String -> LW m Doc
 labelFor ""    = return empty