Recognize output filenames with any single-digit extension as man
format.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@668 788f1e2b-df1e-0410-8736-df70ead52e1b
commitaa1c8ac49631f2dafc25aa1d9938a37a8beb4bfa
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateTue 10 Jul 2007, 06:18 (19 years ago)
parent17caba2
src/Main.hs+1−1
@@ -364,7 +364,7 @@ defaultWriterName x =
364364 Just ["db"] -> "docbook"
365365 Just ["xml"] -> "docbook"
366366 Just ["sgml"] -> "docbook"
367− Just ["1"] -> "man"
367+ Just [[x]] | x `elem` ['1'..'9'] -> "man"
368368 Just _ -> "html"
369369
370370main = do