Slides: Better error message.
commit228c76bb89afcf33f86fbd829b1e55f1c681a42b
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateMon 23 Jan 2012, 21:05 (15 years ago)
parent05cf164
src/Text/Pandoc/Slides.hs+1−1
@@ -41,7 +41,7 @@ data SlideElement = SectionSlide Int [Inline]
4141toSlideElements :: [Block] -> [SlideElement]
4242toSlideElements bs =
4343 case parse (pElements $ getSlideLevel bs) "blocks" bs of
44− Left err -> error $ show err
44+ Left err -> error $ "toSlideElements: " ++ show err -- should never happen
4545 Right res -> res
4646
4747satisfies :: (Block -> Bool) -> GenParser Block () Block