diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 7aed42523..60301ad85 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -193,9 +193,9 @@ fieldList :: RSTParser Blocks fieldList = try $ do indent <- lookAhead $ many spaceChar items <- many1 $ fieldListItem indent - if null items - then return mempty - else return $ B.definitionList $ catMaybes items + case catMaybes items of + [] -> return mempty + items' -> return $ B.definitionList items' -- -- line block |