summaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-01-06 18:46:32 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-01-06 18:46:32 +0000
commit7ecac6d2160c4d81edc7835000db60967f0412ba (patch)
treeb5bfcd3c0d0a604171702472384ce90b7feaf3b8 /src/Main.hs
parent1645fb65e4a486de95f5375bcc029a139d4d8c45 (diff)
Allow '-S' option to be specified together with '--strict', if desired.
Thus 'pandoc -S --strict -r markdown -w html' can replace the Markdown.pl/Smartypants combination. git-svn-id: https://pandoc.googlecode.com/svn/trunk@438 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 31de9d6e5..b5de582d3 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -423,8 +423,7 @@ main = do
defaultParserState { stateParseRaw = parseRaw,
stateTabStop = tabStop,
stateStandalone = standalone && (not strict),
- stateSmart = (smart && (not strict)) ||
- writerName' == "latex",
+ stateSmart = smart || writerName' == "latex",
stateStrict = strict }
let csslink = if (css == "")
then ""