pandoc.hs : changed a couple `writerName` to `writerName'`.

This fixes a bug in which `pandoc --self-contained` would only
work properly if `-t html` were specified explicitly.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/pandoc.hs b/src/pandoc.hs
index d6cf1da85..8ccdf205e 100644
--- a/src/pandoc.hs
+++ b/src/pandoc.hs
@@ -849,7 +849,7 @@ main = do
                                       writerAscii            = ascii }
 
   when (isNonTextOutput writerName' && outputFile == "-") $
-    do UTF8.hPutStrLn stderr ("Error:  Cannot write " ++ writerName ++ " output to stdout.\n" ++
+    do UTF8.hPutStrLn stderr ("Error:  Cannot write " ++ writerName' ++ " output to stdout.\n" ++
                                "Specify an output file using the -o option.")
        exitWith $ ExitFailure 5
 
@@ -902,7 +902,7 @@ main = do
                   writerFn f   = UTF8.writeFile f
                   result       = r writerOptions doc2 ++ ['\n' | not standalone']
                   htmlFormats = ["html","html+lhs","s5","slidy","dzslides"]
-                  postProcess = if selfContained && writerName `elem` htmlFormats
+                  postProcess = if selfContained && writerName' `elem` htmlFormats
                                   then makeSelfContained datadir
                                   else return