diff options
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 26a47b3d0..dc40589ce 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -292,8 +292,8 @@ enclosed start end parser = try $ -- | Parse string, case insensitive. stringAnyCase :: [Char] -> CharParser st String stringAnyCase [] = string "" -stringAnyCase (x:xs) = try $ do - firstChar <- choice [ char (toUpper x), char (toLower x) ] +stringAnyCase (x:xs) = do + firstChar <- char (toUpper x) <|> char (toLower x) rest <- stringAnyCase xs return (firstChar:rest) |