diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-28 06:02:12 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-28 06:02:12 +0000 |
| commit | f10ac4359c55d31a198e907c3f30c35eed11ab3e (patch) | |
| tree | 8307ec0c274fe529cae99708bbdb534f753fcb27 | |
| parent | da9271c25871afbbb7e70a64893f799d5791cf97 (diff) | |
| download | pandoc-f10ac4359c55d31a198e907c3f30c35eed11ab3e.tar.gz | |
Removed unneeded 'try' in 'parseFromString'.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@928 788f1e2b-df1e-0410-8736-df70ead52e1b
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index dc40589ce..d4c59aeb2 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -299,7 +299,7 @@ stringAnyCase (x:xs) = do -- | Parse contents of 'str' using 'parser' and return result. parseFromString :: GenParser tok st a -> [tok] -> GenParser tok st a -parseFromString parser str = try $ do +parseFromString parser str = do oldInput <- getInput setInput str result <- parser |