Allow html4 as synonym of html as reader.

It already worked for writer.
2014-04-27 21:01:30 -07:00 · 2014-04-27 21:01:30 -07:00 · 5dfeb5d52f
commit 5dfeb5d52f
parent c8f97d3d41
1 changed files with 7 additions and 6 deletions
--- a/pandoc.hs
+++ b/pandoc.hs
@ -1003,12 +1003,13 @@ main = do
                  Just _    -> return mbDataDir

  -- assign reader and writer based on options and filenames
-  let readerName' = if null readerName
-                      then let fallback = if any isURI sources
-                                             then "html"
-                                             else "markdown"
-                           in  defaultReaderName fallback sources
-                      else map toLower readerName
+  let readerName' = case map toLower readerName of
+                          []       -> defaultReaderName
+                                      (if any isURI sources
+                                          then "html"
+                                          else "markdown") sources
+                          "html4"  -> "html"
+                          x        -> x

  let writerName' = case map toLower writerName of
                          []        -> defaultWriterName outputFile