diff options
| -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 |