Removed unneeded 'try' in 'parseFromString'.

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

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