@@ -423,24 +423,24 @@ specialAccentedChar = choice [ ccedil, aring, iuml, szlig, aelig,
423423
424424ccedil = try (do
425425 char '\\'
426− letter <- choice [try (string "cc"), try (string "cC")]
426+ letter <- oneOfStrings ["cc", "cC"]
427427 let num = if letter == "cc" then 231 else 199
428428 return (Str [chr num]))
429429
430430aring = try (do
431431 char '\\'
432− letter <- choice [try (string "aa"), try (string "AA")]
432+ letter <- oneOfStrings ["aa", "AA"]
433433 let num = if letter == "aa" then 229 else 197
434434 return (Str [chr num]))
435435
436436iuml = try (do
437437 string "\\\""
438− choice [try (string "\\i"), try (string "{\\i}")]
438+ oneOfStrings ["\\i", "{\\i}"]
439439 return (Str [chr 239]))
440440
441441icirc = try (do
442442 string "\\^"
443− choice [try (string "\\i"), try (string "{\\i}")]
443+ oneOfStrings ["\\i", "{\\i}"]
444444 return (Str [chr 238]))
445445
446446szlig = try (do
@@ -455,7 +455,7 @@ oslash = try (do
455455
456456aelig = try (do
457457 char '\\'
458− letter <- choice [try (string "ae"), try (string "AE")]
458+ letter <- oneOfStrings ["ae", "AE"]
459459 let num = if letter == "ae" then 230 else 198
460460 return (Str [chr num]))
461461