diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-23 21:05:43 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-23 21:05:43 -0800 |
| commit | 228c76bb89afcf33f86fbd829b1e55f1c681a42b (patch) | |
| tree | f3ec36cd203b552d9e061a0734aed88cd1100734 | |
| parent | 05cf164edff9bc4ffbed443c18c15773749ca358 (diff) | |
Slides: Better error message.
| -rw-r--r-- | src/Text/Pandoc/Slides.hs | 2 |
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 |