Refactored escapeChar so it doesn't need 'try'.

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

1 files changed, 4 insertions, 4 deletions

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 3dda843bc..1af2688f9 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -639,12 +639,12 @@ inline = choice [ str
                 , symbol
                 , ltSign ] <?> "inline"
 
-escapedChar = try $ do
+escapedChar = do
   char '\\'
   state <- getState
-  result <- if stateStrict state 
-              then oneOf "\\`*_{}[]()>#+-.!~"
-              else satisfy (not . isAlphaNum)
+  result <- option '\\' $ if stateStrict state 
+                             then oneOf "\\`*_{}[]()>#+-.!~"
+                             else satisfy (not . isAlphaNum)
   return $ Str [result]
 
 ltSign = do