aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-08-19 00:06:03 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-08-19 00:06:03 +0000
commit4e149f898a3fff677e042f670f04a7d42c78edd3 (patch)
tree903bbe6c97a7eb532f1516575afa9a932c95566f /src/Text/Pandoc
parent4399db4fd2d3f1f936e21cd0fe732142a7fccab2 (diff)
downloadpandoc-4e149f898a3fff677e042f670f04a7d42c78edd3.tar.gz
Added a necessary "try" in definition of "para"
(HTML reader). git-svn-id: https://pandoc.googlecode.com/svn/trunk@863 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/HTML.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index ac3947ad1..caf2b7f5f 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -395,7 +395,8 @@ definitionListItem = try $ do
-- paragraph block
--
-para = htmlTag "p" >> inlinesTilEnd "p" >>= return . Para . normalizeSpaces
+para = try $ htmlTag "p" >> inlinesTilEnd "p" >>=
+ return . Para . normalizeSpaces
--
-- plain block