diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-22 22:52:39 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-22 22:52:39 +0000 |
| commit | 1121e8738b3d2a60c5762be03a2f6b33adae77ab (patch) | |
| tree | eeb7fd188c585f099a65a5d55f675cae5cbb3b89 /src/Text/Pandoc/Writers/HTML.hs | |
| parent | 8f0750574ac1702d27bf9a98ccce3962ad0b587c (diff) | |
| download | pandoc-1121e8738b3d2a60c5762be03a2f6b33adae77ab.tar.gz | |
Removed 'gsub' entirely and replaced its uses with 'substitute'.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@501 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index d38a57556..5465e125d 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -87,7 +87,7 @@ obfuscateLink opts txt src = src' = map toLower src in case (matchRegex emailRegex src') of (Just [name, domain]) -> - let domain' = gsub "\\." " dot " domain + let domain' = substitute "." " dot " domain at' = obfuscateChar '@' in let linkText = if src' == ("mailto:" ++ text') then "e" |