RST reader: SkippedContent warning if table directive...

containts non-tabular content.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs
index 2ef7187b1..07fcbb476 100644
--- a/src/Text/Pandoc/Readers/RST.hs
+++ b/src/Text/Pandoc/Readers/RST.hs
@@ -912,7 +912,10 @@ tableDirective top fields body = do
          let tspecs = zip aligns' widths
          return $ B.singleton $ Table attr (B.caption Nothing (B.plain title))
                                   tspecs thead tbody tfoot
-       _ -> return mempty
+       _ -> do
+         pos <- getPosition
+         logMessage $ SkippedContent body pos
+         return mempty
   where
     -- only valid on the very first row of a table section
     rowLength (Row _ rb) = sum $ cellLength <$> rb