From 228c76bb89afcf33f86fbd829b1e55f1c681a42b Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Mon, 23 Jan 2012 21:05:43 -0800
Subject: Slides: Better error message.

---
 src/Text/Pandoc/Slides.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3