@@ -87,8 +87,8 @@ parseBlock (Elem e) =
87 modify $ \st -> st{ opmlSectionLevel = n }
87 modify $ \st -> st{ opmlSectionLevel = n }
88 bs <- getBlocks e
88 bs <- getBlocks e
89 modify $ \st -> st{ opmlSectionLevel = n - 1 }
89 modify $ \st -> st{ opmlSectionLevel = n - 1 }
90− let headerText' = case attrValue "type" e of
90+ let headerText' = case map toUpper (attrValue "type" e) of
91− "link" -> link
91+ "LINK" -> link
92 (attrValue "url" e) "" headerText
92 (attrValue "url" e) "" headerText
93 _ -> headerText
93 _ -> headerText
94 return $ header n headerText' <> noteBlocks <> bs
94 return $ header n headerText' <> noteBlocks <> bs