@@ -58,7 +58,7 @@ pandocToMan opts (Pandoc meta blocks) = do
58 (head, foot) <- metaToMan opts meta
58 (head, foot) <- metaToMan opts meta
59 body <- blockListToMan opts blocks
59 body <- blockListToMan opts blocks
60 (notes, preprocessors) <- get
60 (notes, preprocessors) <- get
61− let preamble = if null preprocessors
61+ let preamble = if null preprocessors || not (writerStandalone opts)
62 then empty
62 then empty
63 else text $ ".\\\" " ++ concat (nub preprocessors)
63 else text $ ".\\\" " ++ concat (nub preprocessors)
64 notes' <- notesToMan opts (reverse notes)
64 notes' <- notesToMan opts (reverse notes)