{- |
This name uses only lowercase characters as canonical representation,
except for @DOCTYPE@ and @CDATA@.
This is optimal for processing HTML which is case-insensitiv.
-}moduleText.XML.Basic.Name.LowerCasewhereimportqualifiedText.XML.Basic.NameasNameimportqualifiedText.XML.Basic.TagasTagimportData.Char(toLower,toUpper,)newtypeT=ConsStringderiving(Eq,Ord)instanceShowTwhereshowsPrecp(Conss)=showsPrecpsinstanceName.TagTwheretagFromStringx=Cons$letxu=maptoUpperxinifelemxu$[Tag.doctypeString,Tag.cdataString]thenxuelsemaptoLowerxtagToString(Conss)=sinstanceName.AttributeTwhereattributeFromString=Cons.maptoLowerattributeToString(Conss)=s