diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-03-20 09:16:16 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-03-20 09:16:16 -0700 |
| commit | a63c208d77035c71b193b3a5b7d5339591b0c25a (patch) | |
| tree | 73e27266bd9ea74e4dcae8886c8e374ab60479e8 /src/Text/Pandoc/Readers/OPML.hs | |
| parent | 366c20a425b4cf74773f216ea77c0121bdc6c9f2 (diff) | |
| download | pandoc-a63c208d77035c71b193b3a5b7d5339591b0c25a.tar.gz | |
OPML reader: Type attributes are not case sensitive.
So, `type="link"` or `type="LINK"`.
Diffstat (limited to 'src/Text/Pandoc/Readers/OPML.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/OPML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/OPML.hs b/src/Text/Pandoc/Readers/OPML.hs index 53b599349..c9726d195 100644 --- a/src/Text/Pandoc/Readers/OPML.hs +++ b/src/Text/Pandoc/Readers/OPML.hs @@ -87,8 +87,8 @@ parseBlock (Elem e) = modify $ \st -> st{ opmlSectionLevel = n } bs <- getBlocks e modify $ \st -> st{ opmlSectionLevel = n - 1 } - let headerText' = case attrValue "type" e of - "link" -> link + let headerText' = case map toUpper (attrValue "type" e) of + "LINK" -> link (attrValue "url" e) "" headerText _ -> headerText return $ header n headerText' <> noteBlocks <> bs |