From dfcae807b07e585e91b1b3a9981bd7ad9543f53e Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sun, 8 Jul 2007 03:54:07 +0000
Subject: Man writer:  Don't print .\" t at beginning unless we're in
 --standalone mode.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@650 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Writers/Man.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs
index 9f590f525..f0cc3c707 100644
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@@ -58,7 +58,7 @@ pandocToMan opts (Pandoc meta blocks) = do
   (head, foot) <- metaToMan opts meta
   body <- blockListToMan opts blocks
   (notes, preprocessors) <- get
-  let preamble = if null preprocessors
+  let preamble = if null preprocessors || not (writerStandalone opts)
                     then empty
                     else text $ ".\\\" " ++ concat (nub preprocessors)
   notes' <- notesToMan opts (reverse notes)
-- 
cgit v1.2.3