diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/OPML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/OPML.hs b/src/Text/Pandoc/Writers/OPML.hs index 4f832f962..dee3a029c 100644 --- a/src/Text/Pandoc/Writers/OPML.hs +++ b/src/Text/Pandoc/Writers/OPML.hs @@ -97,6 +97,6 @@ elementToOPML opts (Sec _ _num _ title elements) = do then return [] else do blks <- mapM fromBlk blocks writeMarkdown def $ Pandoc nullMeta blks - let attrs = [("text", htmlIls)] ++ [("_note", md)] + let attrs = [("text", htmlIls)] ++ [("_note", md) | not (null blocks)] o <- mapM (elementToOPML opts) rest return $ inTags True "outline" attrs $ vcat o |