diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-07-21 11:24:37 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-07-21 11:24:37 -0700 |
| commit | 87cd12a573f9cd96e9c6cec25c3d84cafed0cb6f (patch) | |
| tree | 59a4259ec6e68588a27f31ce8effbaeb1b7b4ac0 /src/pandoc.hs | |
| parent | 7712a0a91f5dd6b72d06de72356da8d823065abc (diff) | |
| download | pandoc-87cd12a573f9cd96e9c6cec25c3d84cafed0cb6f.tar.gz | |
Avoid shadowing when compiling with citeproc.
Diffstat (limited to 'src/pandoc.hs')
| -rw-r--r-- | src/pandoc.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/pandoc.hs b/src/pandoc.hs index 8ba4616ae..9947c13f0 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -284,20 +284,20 @@ options = , Option "" ["mimetex"] (OptArg (\arg opt -> do - let url = case arg of + let url' = case arg of Just u -> u ++ "?" Nothing -> "/cgi-bin/mimetex.cgi?" - return opt { optHTMLMathMethod = WebTeX url }) + return opt { optHTMLMathMethod = WebTeX url' }) "URL") "" -- "Use mimetex for HTML math" , Option "" ["webtex"] (OptArg (\arg opt -> do - let url = case arg of + let url' = case arg of Just u -> u Nothing -> "http://chart.apis.google.com/chart?cht=tx&chl=" - return opt { optHTMLMathMethod = WebTeX url }) + return opt { optHTMLMathMethod = WebTeX url' }) "URL") "" -- "Use web service for HTML math" |