diff options
| author | David Lazar <lazar6@illinois.edu> | 2013-03-29 10:22:11 -0700 |
|---|---|---|
| committer | David Lazar <lazar6@illinois.edu> | 2013-03-29 10:22:11 -0700 |
| commit | 7424454acef153176a14c3f95e925d5edd6b2e87 (patch) | |
| tree | fda104aae2a4b7ba3fc2747a844faafea4358c22 /src/Text/Pandoc/Readers/Haddock.hs | |
| parent | 7cb8b60910ede36bba3598f85a06ddde6fc545d0 (diff) | |
Haddock reader: improved error reporting.
Diffstat (limited to 'src/Text/Pandoc/Readers/Haddock.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Haddock.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Haddock.hs b/src/Text/Pandoc/Readers/Haddock.hs index 49154b0ca..081ec7b5e 100644 --- a/src/Text/Pandoc/Readers/Haddock.hs +++ b/src/Text/Pandoc/Readers/Haddock.hs @@ -24,8 +24,10 @@ readHaddock :: ReaderOptions -- ^ Reader options readHaddock _ s = Pandoc (Meta [] [] []) blocks where blocks = case parseParas (tokenise s (0,0)) of - Nothing -> [] - Just x -> mergeLists (toList x) + Left [] -> error "parse failure" + Left (tok:_) -> error $ "parse failure " ++ pos (tokenPos tok) + where pos (l, c) = "(line " ++ show l ++ ", column " ++ show c ++ ")" + Right x -> mergeLists (toList x) -- similar to 'docAppend' in Haddock.Doc mergeLists :: [Block] -> [Block] |