@@ -47,7 +47,7 @@ import Text.Pandoc.Builder (Inlines, Blocks, trimInlines, (<>))
4747import qualified Text.Pandoc.Builder as B
4848import Data.Monoid (mconcat, mempty)
4949import Data.Sequence (viewr, ViewR(..))
50−import Data.Char (toLower)
50+import Data.Char (toLower, isHexDigit)
5151
5252-- | Parse reStructuredText string and return Pandoc document.
5353readRST :: ReaderOptions -- ^ Reader options
@@ -656,9 +656,6 @@ extractUnicodeChar s = maybe Nothing (\c -> Just (c,rest)) mbc
656656 where (ds,rest) = span isHexDigit s
657657 mbc = safeRead ('\'':'\\':'x':ds ++ "'")
658658
659−isHexDigit :: Char -> Bool
660−isHexDigit c = c `elem` "0123456789ABCDEFabcdef"
661−
662659extractCaption :: RSTParser (Inlines, Blocks)
663660extractCaption = do
664661 capt <- trimInlines . mconcat <$> many inline