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
This commit is contained in:
fiddlosopher
2007-07-10 06:18:23 +00:00
parent 17caba2ffc
commit aa1c8ac496
+1 -1
View File
@@ -364,7 +364,7 @@ defaultWriterName x =
Just ["db"] -> "docbook"
Just ["xml"] -> "docbook"
Just ["sgml"] -> "docbook"
Just ["1"] -> "man"
Just [[x]] | x `elem` ['1'..'9'] -> "man"
Just _ -> "html"
main = do