@@ -364,7 +364,7 @@ defaultWriterName x =
364 Just ["db"] -> "docbook"
364 Just ["db"] -> "docbook"
365 Just ["xml"] -> "docbook"
365 Just ["xml"] -> "docbook"
366 Just ["sgml"] -> "docbook"
366 Just ["sgml"] -> "docbook"
367− Just ["1"] -> "man"
367+ Just [[x]] | x `elem` ['1'..'9'] -> "man"
368 Just _ -> "html"
368 Just _ -> "html"