OPML reader: Type attributes are not case sensitive.
So, `type="link"` or `type="LINK"`.
commita63c208d77035c71b193b3a5b7d5339591b0c25a
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateWed 20 Mar 2013, 09:16 (14 years ago)
parent366c20a
src/Text/Pandoc/Readers/OPML.hs+2−2
@@ -87,8 +87,8 @@ parseBlock (Elem e) =
8787 modify $ \st -> st{ opmlSectionLevel = n }
8888 bs <- getBlocks e
8989 modify $ \st -> st{ opmlSectionLevel = n - 1 }
90− let headerText' = case attrValue "type" e of
91− "link" -> link
90+ let headerText' = case map toUpper (attrValue "type" e) of
91+ "LINK" -> link
9292 (attrValue "url" e) "" headerText
9393 _ -> headerText
9494 return $ header n headerText' <> noteBlocks <> bs