From 87cd12a573f9cd96e9c6cec25c3d84cafed0cb6f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 21 Jul 2010 11:24:37 -0700
Subject: [PATCH] Avoid shadowing when compiling with citeproc.
---
src/pandoc.hs | 8 ++++----
1 file 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"