diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-28 05:58:21 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-28 05:58:21 +0000 |
commit | f04df62db11448da41d7b8daa280ac32459e1176 (patch) | |
tree | 617acf97e82d69cf7ee58365a1b8f35c5c40e71c /src/Text/Pandoc/Shared.hs | |
parent | a6da87f4841c6627bd5d9162fa2775ec92f4d61d (diff) | |
download | pandoc-f04df62db11448da41d7b8daa280ac32459e1176.tar.gz |
Changed definition of 'enclosed' in Text.Pandoc.Shared so that
'try' is not automatically applied to the 'end' parser.
Added 'try' in calls to 'enclosed' where needed. Slight speed
increase.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@926 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
-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 f3da7cb83..26a47b3d0 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -287,8 +287,8 @@ enclosed :: GenParser Char st t -- ^ start parser -> GenParser Char st a -- ^ content parser (to be used repeatedly) -> GenParser Char st [a] enclosed start end parser = try $ - start >> notFollowedBy space >> many1Till parser (try end) - + start >> notFollowedBy space >> many1Till parser end + -- | Parse string, case insensitive. stringAnyCase :: [Char] -> CharParser st String stringAnyCase [] = string "" |