From a63c208d77035c71b193b3a5b7d5339591b0c25a Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Wed, 20 Mar 2013 09:16:16 -0700
Subject: OPML reader: Type attributes are not case sensitive.
So, `type="link"` or `type="LINK"`.
---
src/Text/Pandoc/Readers/OPML.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'src')
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
--
cgit v1.2.3