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.
This commit is contained in:
John MacFarlane
2011-11-23 20:15:24 -08:00
parent db1c16e856
commit 41eded5dd2
+2 -2
View File
@@ -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