Replaced "choice [(try (string ...), ...]" idiom with

"oneOfStrings" in LaTeX reader.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@528 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 5 insertions, 5 deletions

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 150b7cb6f..5e5324f79 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -423,24 +423,24 @@ specialAccentedChar = choice [ ccedil, aring, iuml, szlig, aelig,
 
 ccedil = try (do
   char '\\'
-  letter <- choice [try (string "cc"), try (string "cC")]
+  letter <- oneOfStrings ["cc", "cC"]
   let num = if letter == "cc" then 231 else 199
   return (Str [chr num]))
 
 aring = try (do
   char '\\'
-  letter <- choice [try (string "aa"), try (string "AA")]
+  letter <- oneOfStrings ["aa", "AA"]
   let num = if letter == "aa" then 229 else 197
   return (Str [chr num]))
 
 iuml = try (do
   string "\\\""
-  choice [try (string "\\i"), try (string "{\\i}")]
+  oneOfStrings ["\\i", "{\\i}"]
   return (Str [chr 239]))
 
 icirc = try (do
   string "\\^"
-  choice [try (string "\\i"), try (string "{\\i}")]
+  oneOfStrings ["\\i", "{\\i}"]
   return (Str [chr 238]))
 
 szlig = try (do
@@ -455,7 +455,7 @@ oslash = try (do
 
 aelig = try (do
   char '\\'
-  letter <- choice [try (string "ae"), try (string "AE")]
+  letter <- oneOfStrings ["ae", "AE"]
   let num = if letter == "ae" then 230 else 198
   return (Str [chr num]))