Allow "epub2" as synonym for "epub", "html4" for "html".

1 files changed, 4 insertions, 1 deletions

diff --git a/pandoc.hs b/pandoc.hs
index 21773ed80..8c196c01d 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -982,7 +982,10 @@ main = do
 
   let writerName' = if null writerName
                       then defaultWriterName outputFile
-                      else writerName
+                      else case writerName of
+                                "epub2"   -> "epub"
+                                "html4"   -> "html"
+                                x         -> x
 
   let pdfOutput = map toLower (takeExtension outputFile) == ".pdf"