From 2d1703e8a00349a1f76961a78688cb52f4d4e903 Mon Sep 17 00:00:00 2001
From: Michael Thompson <what_is_it_to_do_anything@yahoo.com>
Date: Wed, 7 Mar 2012 12:27:46 -0500
Subject: Fix initial `Str "."` after `LineBreak` as well?

---
 src/Text/Pandoc/Writers/Man.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Text/Pandoc')

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
 
-- 
cgit v1.2.3