{-# LANGUAGE TypeOperators #-} {-# LANGUAGE DataKinds #-} module Html.Attribute where import Html.Type role_ :: a -> 'RoleA := a role_ = AT ariaActivedescendant_ :: a -> 'AriaActivedescendantA := a ariaActivedescendant_ = AT ariaAtomic_ :: a -> 'AriaAtomicA := a ariaAtomic_ = AT ariaAutocomplete_ :: a -> 'AriaAutocompleteA := a ariaAutocomplete_ = AT ariaBusy_ :: a -> 'AriaBusyA := a ariaBusy_ = AT ariaChecked_ :: a -> 'AriaCheckedA := a ariaChecked_ = AT ariaControls_ :: a -> 'AriaControlsA := a ariaControls_ = AT ariaDescribedby_ :: a -> 'AriaDescribedbyA := a ariaDescribedby_ = AT ariaDisabled_ :: a -> 'AriaDisabledA := a ariaDisabled_ = AT ariaDropeffect_ :: a -> 'AriaDropeffectA := a ariaDropeffect_ = AT ariaExpanded_ :: a -> 'AriaExpandedA := a ariaExpanded_ = AT ariaFlowto_ :: a -> 'AriaFlowtoA := a ariaFlowto_ = AT ariaGrabbed_ :: a -> 'AriaGrabbedA := a ariaGrabbed_ = AT ariaHaspopup_ :: a -> 'AriaHaspopupA := a ariaHaspopup_ = AT ariaHidden_ :: a -> 'AriaHiddenA := a ariaHidden_ = AT ariaInvalid_ :: a -> 'AriaInvalidA := a ariaInvalid_ = AT ariaLabel_ :: a -> 'AriaLabelA := a ariaLabel_ = AT ariaLabelledBy_ :: a -> 'AriaLabelledByA := a ariaLabelledBy_ = AT ariaLevel_ :: a -> 'AriaLevelA := a ariaLevel_ = AT ariaLive_ :: a -> 'AriaLiveA := a ariaLive_ = AT ariaMultiline_ :: a -> 'AriaMultilineA := a ariaMultiline_ = AT ariaMultiselectable_ :: a -> 'AriaMultiselectableA := a ariaMultiselectable_ = AT ariaOwns_ :: a -> 'AriaOwnsA := a ariaOwns_ = AT ariaPosinset_ :: a -> 'AriaPosinsetA := a ariaPosinset_ = AT ariaPressed_ :: a -> 'AriaPressedA := a ariaPressed_ = AT ariaReadonly_ :: a -> 'AriaReadonlyA := a ariaReadonly_ = AT ariaRelevant_ :: a -> 'AriaRelevantA := a ariaRelevant_ = AT ariaRequired_ :: a -> 'AriaRequiredA := a ariaRequired_ = AT ariaSelected_ :: a -> 'AriaSelectedA := a ariaSelected_ = AT ariaSetsize_ :: a -> 'AriaSetsizeA := a ariaSetsize_ = AT ariaSort_ :: a -> 'AriaSortA := a ariaSort_ = AT ariaValuemax_ :: a -> 'AriaValuemaxA := a ariaValuemax_ = AT ariaValuemin_ :: a -> 'AriaValueminA := a ariaValuemin_ = AT ariaValuenow_ :: a -> 'AriaValuenowA := a ariaValuenow_ = AT ariaValuetext_ :: a -> 'AriaValuetextA := a ariaValuetext_ = AT accept_ :: a -> 'AcceptA := a accept_ = AT acceptCharset_ :: a -> 'AcceptCharsetA := a acceptCharset_ = AT accesskey_ :: a -> 'AccesskeyA := a accesskey_ = AT action_ :: a -> 'ActionA := a action_ = AT allowfullscreen_ :: 'AllowfullscreenA := () allowfullscreen_ = AT () allowpaymentrequest_ :: 'AllowpaymentrequestA := () allowpaymentrequest_ = AT () align_ :: a -> 'AlignA := a align_ = AT alt_ :: a -> 'AltA := a alt_ = AT async_ :: 'AsyncA := () async_ = AT () autocomplete_ :: a -> 'AutocompleteA := a autocomplete_ = AT autofocus_ :: 'AutofocusA := () autofocus_ = AT () autoplay_ :: 'AutoplayA := () autoplay_ = AT () autosave_ :: a -> 'AutosaveA := a autosave_ = AT bgcolor_ :: a -> 'BgcolorA := a bgcolor_ = AT border_ :: a -> 'BorderA := a border_ = AT buffered_ :: a -> 'BufferedA := a buffered_ = AT challenge_ :: a -> 'ChallengeA := a challenge_ = AT charset_ :: a -> 'CharsetA := a charset_ = AT checked_ :: 'CheckedA := () checked_ = AT () cite_ :: a -> 'CiteA := a cite_ = AT class_ :: a -> 'ClassA := a class_ = AT code_ :: a -> 'CodeA := a code_ = AT codebase_ :: a -> 'CodebaseA := a codebase_ = AT color_ :: a -> 'ColorA := a color_ = AT cols_ :: Integral a => a -> 'ColsA := a cols_ = AT colspan_ :: Integral a => a -> 'ColspanA := a colspan_ = AT content_ :: a -> 'ContentA := a content_ = AT contenteditable_ :: a -> 'ContenteditableA := a contenteditable_ = AT contextmenu_ :: a -> 'ContextmenuA := a contextmenu_ = AT controls_ :: 'ControlsA := () controls_ = AT () coords_ :: a -> 'CoordsA := a coords_ = AT crossorigin_ :: a -> 'CrossoriginA := a crossorigin_ = AT data_ :: a -> 'DataA := a data_ = AT datetime_ :: a -> 'DatetimeA := a datetime_ = AT default_ :: 'DefaultA := () default_ = AT () defer_ :: 'DeferA := () defer_ = AT () dir_ :: a -> 'DirA := a dir_ = AT dirname_ :: a -> 'DirnameA := a dirname_ = AT disabled_ :: 'DisabledA := () disabled_ = AT () download_ :: a -> 'DownloadA := a download_ = AT draggable_ :: a -> 'DraggableA := a draggable_ = AT dropzone_ :: a -> 'DropzoneA := a dropzone_ = AT enctype_ :: a -> 'EnctypeA := a enctype_ = AT for_ :: a -> 'ForA := a for_ = AT form_ :: a -> 'FormA := a form_ = AT formaction_ :: a -> 'FormactionA := a formaction_ = AT formenctype_ :: a -> 'FormenctypeA := a formenctype_ = AT formmethod_ :: a -> 'FormmethodA := a formmethod_ = AT formnovalidate_ :: 'FormnovalidateA := () formnovalidate_ = AT () formtarget_ :: a -> 'FormtargetA := a formtarget_ = AT headers_ :: a -> 'HeadersA := a headers_ = AT height_ :: Integral a => a -> 'HeightA := a height_ = AT hidden_ :: 'HiddenA := () hidden_ = AT () high_ :: Num a => a -> 'HighA := a high_ = AT href_ :: a -> 'HrefA := a href_ = AT hreflang_ :: a -> 'HreflangA := a hreflang_ = AT httpEquiv_ :: a -> 'HttpEquivA := a httpEquiv_ = AT icon_ :: a -> 'IconA := a icon_ = AT id_ :: a -> 'IdA := a id_ = AT integrity_ :: a -> 'IntegrityA := a integrity_ = AT ismap_ :: 'IsmapA := () ismap_ = AT () itemprop_ :: a -> 'ItempropA := a itemprop_ = AT keytype_ :: a -> 'KeytypeA := a keytype_ = AT kind_ :: a -> 'KindA := a kind_ = AT label_ :: a -> 'LabelA := a label_ = AT lang_ :: a -> 'LangA := a lang_ = AT language_ :: a -> 'LanguageA := a language_ = AT list_ :: a -> 'ListA := a list_ = AT longdesc_ :: a -> 'LongdescA := a longdesc_ = AT loop_ :: 'LoopA := () loop_ = AT () low_ :: Num a => a -> 'LowA := a low_ = AT manifest_ :: a -> 'ManifestA := a manifest_ = AT max_ :: Num a => a -> 'MaxA := a max_ = AT maxlength_ :: Integral a => a -> 'MaxlengthA := a maxlength_ = AT minlength_ :: Integral a => a -> 'MinlengthA := a minlength_ = AT media_ :: a -> 'MediaA := a media_ = AT method_ :: a -> 'MethodA := a method_ = AT min_ :: Num a => a -> 'MinA := a min_ = AT multiple_ :: 'MultipleA := () multiple_ = AT () muted_ :: 'MutedA := () muted_ = AT () name_ :: a -> 'NameA := a name_ = AT nonce_ :: a -> 'NonceA := a nonce_ = AT novalidate_ :: 'NovalidateA := () novalidate_ = AT () open_ :: 'OpenA := () open_ = AT () optimum_ :: Num a => a -> 'OptimumA := a optimum_ = AT pattern_ :: a -> 'PatternA := a pattern_ = AT ping_ :: a -> 'PingA := a ping_ = AT placeholder_ :: a -> 'PlaceholderA := a placeholder_ = AT poster_ :: a -> 'PosterA := a poster_ = AT preload_ :: a -> 'PreloadA := a preload_ = AT radiogroup_ :: a -> 'RadiogroupA := a radiogroup_ = AT readonly_ :: 'ReadonlyA := () readonly_ = AT () referrerpolicy_ :: a -> 'ReferrerpolicyA := a referrerpolicy_ = AT rel_ :: a -> 'RelA := a rel_ = AT required_ :: 'RequiredA := () required_ = AT () rev_ :: a -> 'RevA := a rev_ = AT reversed_ :: 'ReversedA := () reversed_ = AT () rows_ :: Integral a => a -> 'RowsA := a rows_ = AT rowspan_ :: Integral a => a -> 'RowspanA := a rowspan_ = AT sandbox_ :: a -> 'SandboxA := a sandbox_ = AT scope_ :: a -> 'ScopeA := a scope_ = AT scoped_ :: a -> 'ScopedA := a scoped_ = AT seamless_ :: a -> 'SeamlessA := a seamless_ = AT selected_ :: 'SelectedA := () selected_ = AT () shape_ :: a -> 'ShapeA := a shape_ = AT size_ :: Integral a => a -> 'SizeA := a size_ = AT sizes_ :: a -> 'SizesA := a sizes_ = AT slot_ :: a -> 'SlotA := a slot_ = AT span_ :: Integral a => a -> 'SpanA := a span_ = AT spellcheck_ :: a -> 'SpellcheckA := a spellcheck_ = AT src_ :: a -> 'SrcA := a src_ = AT srcdoc_ :: a -> 'SrcdocA := a srcdoc_ = AT srclang_ :: a -> 'SrclangA := a srclang_ = AT srcset_ :: a -> 'SrcsetA := a srcset_ = AT start_ :: Integral a => a -> 'StartA := a start_ = AT step_ :: Num a => a -> 'StepA := a step_ = AT style_ :: a -> 'StyleA := a style_ = AT summary_ :: a -> 'SummaryA := a summary_ = AT tabindex_ :: Integral a => a -> 'TabindexA := a tabindex_ = AT target_ :: a -> 'TargetA := a target_ = AT title_ :: a -> 'TitleA := a title_ = AT translate_ :: a -> 'TranslateA := a translate_ = AT type_ :: a -> 'TypeA := a type_ = AT typemustmatch_ :: 'TypemustmatchA := () typemustmatch_ = AT () usemap_ :: a -> 'UsemapA := a usemap_ = AT value_ :: a -> 'ValueA := a value_ = AT width_ :: Integral a => a -> 'WidthA := a width_ = AT wrap_ :: a -> 'WrapA := a wrap_ = AT addAttributes :: (a (b # b')) c => b' -> (a :@: b) c -> (a :@: (b # b')) c addAttributes b' (WithAttributes b c) = WithAttributes (b # b') c