aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-01-23 21:05:43 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-01-23 21:05:43 -0800
commit228c76bb89afcf33f86fbd829b1e55f1c681a42b (patch)
treef3ec36cd203b552d9e061a0734aed88cd1100734
parent05cf164edff9bc4ffbed443c18c15773749ca358 (diff)
downloadpandoc-228c76bb89afcf33f86fbd829b1e55f1c681a42b.tar.gz
Slides: Better error message.
-rw-r--r--src/Text/Pandoc/Slides.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Slides.hs b/src/Text/Pandoc/Slides.hs
index d89cf1dcd..d45af4f1c 100644
--- a/src/Text/Pandoc/Slides.hs
+++ b/src/Text/Pandoc/Slides.hs
@@ -41,7 +41,7 @@ data SlideElement = SectionSlide Int [Inline]
toSlideElements :: [Block] -> [SlideElement]
toSlideElements bs =
case parse (pElements $ getSlideLevel bs) "blocks" bs of
- Left err -> error $ show err
+ Left err -> error $ "toSlideElements: " ++ show err -- should never happen
Right res -> res
satisfies :: (Block -> Bool) -> GenParser Block () Block