diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-02 11:53:17 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-02 11:53:31 +0100 |
| commit | 9e50319df312d6401060f4e0e336d555b5e047fe (patch) | |
| tree | 7ba552d6d0b66241e7f6d32f22d7ef7628997107 /src/Text/Pandoc/Writers/LaTeX.hs | |
| parent | a69cfa017898648a50243812459ec72b45a6fb6b (diff) | |
LaTeX writer: minor tweak to hypertarget (semantically irrelevant).
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 054a16259..789593118 100644 --- 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 |