diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-28 07:20:47 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-28 07:20:47 +0000 |
commit | ce800f71215b5f1f747554d4e6fb7a77b24f5367 (patch) | |
tree | 89cbe6bc61670ce9f5a33eb1f59ffe0654829840 /src/Text/Pandoc | |
parent | 3e337eb9c86e6776cea1c4f4770d5a48d084aafb (diff) | |
download | pandoc-ce800f71215b5f1f747554d4e6fb7a77b24f5367.tar.gz |
Removed unneeded 'try' in dashedLine.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@937 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index e6914ce66..829600712 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -493,7 +493,7 @@ rawLaTeXEnvironment' = failIfStrict >> rawLaTeXEnvironment -- Parse a dashed line with optional trailing spaces; return its length -- and the length including trailing space. -dashedLine ch = try $ do +dashedLine ch = do dashes <- many1 (char ch) sp <- many spaceChar return $ (length dashes, length $ dashes ++ sp) |