diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Man.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs index d3735efa7..84d43b6bc 100644 --- a/src/Text/Pandoc/Writers/Man.hs +++ b/src/Text/Pandoc/Writers/Man.hs @@ -124,6 +124,7 @@ breakSentence [] = ([],[]) breakSentence xs = let isSentenceEndInline (Str ".") = True isSentenceEndInline (Str "?") = True + isSentenceEndInline (LineBreak) = True isSentenceEndInline _ = False (as, bs) = break isSentenceEndInline xs in case bs of @@ -131,6 +132,7 @@ breakSentence xs = [c] -> (as ++ [c], []) (c:Space:cs) -> (as ++ [c], cs) (Str ".":Str ")":cs) -> (as ++ [Str ".", Str ")"], cs) + (LineBreak:Str ".":cs) -> (as ++[LineBreak], Str ".":cs) (c:cs) -> (as ++ [c] ++ ds, es) where (ds, es) = breakSentence cs |