{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
module Blizzard.Html.Attributes
( accept
, acceptCharset
, accesskey
, action
, allowfullscreen
, alt
, async
, autocomplete
, autofocus
, autoplay
, challenge
, charset
, checked
, cite
, css
, cols
, colspan
, content
, contenteditable
, contextmenu
, controls
, coords
, data_
, datetime
, default_
, defer
, dir
, disabled
, draggable
, enctype
, for
, form
, formaction
, formenctype
, formmethod
, formnovalidate
, formtarget
, headers
, height
, hidden
, high
, href
, hreflang
, httpEquiv
, icon
, id
, inert
, ismap
, item
, itemprop
, itemscope
, itemtype
, keytype
, label
, lang
, list
, loop
, low
, manifest
, max
, maxlength
, media
, method
, min
, multiple
, muted
, name
, nomodule
, novalidate
, onbeforeonload
, onbeforeprint
, onblur
, oncanplay
, oncanplaythrough
, onchange
, onclick
, oncontextmenu
, ondblclick
, ondrag
, ondragend
, ondragenter
, ondragleave
, ondragover
, ondragstart
, ondrop
, ondurationchange
, onemptied
, onended
, onerror
, onfocus
, onformchange
, onforminput
, onhaschange
, oninput
, oninvalid
, onkeydown
, onkeyup
, onload
, onloadeddata
, onloadedmetadata
, onloadstart
, onmessage
, onmousedown
, onmousemove
, onmouseout
, onmouseover
, onmouseup
, onmousewheel
, ononline
, onpagehide
, onpageshow
, onpause
, onplay
, onplaying
, onprogress
, onpropstate
, onratechange
, onreadystatechange
, onredo
, onresize
, onscroll
, onseeked
, onseeking
, onselect
, onstalled
, onstorage
, onsubmit
, onsuspend
, ontimeupdate
, onundo
, onunload
, onvolumechange
, onwaiting
, open
, optimum
, pattern
, ping
, placeholder
, playsinline
, preload
, pubdate
, radiogroup
, readonly
, rel
, required
, reversed
, role
, rows
, rowspan
, sandbox
, scope
, scoped
, seamless
, selected
, shape
, size
, sizes
, span
, spellcheck
, src
, srcdoc
, start
, step
, style
, subject
, summary
, tabindex
, target
, title
, truespeed
, type_
, typemustmatch
, usemap
, value
, width
, wrap
, xmlns
) where
import Data.Text (Text, unwords)
import Prelude hiding (id, max, min, span, unwords)
import Text.Blaze.Html (Attribute, customAttribute, textValue)
import qualified Text.Blaze.Html5.Attributes as Attr
accept :: Bool -> Maybe Attribute
accept :: Bool -> Maybe Attribute
accept Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.accept AttributeValue
"accept"
accept Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
acceptCharset :: Text -> Maybe Attribute
acceptCharset :: Text -> Maybe Attribute
acceptCharset = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.acceptCharset (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
accesskey :: Text -> Maybe Attribute
accesskey :: Text -> Maybe Attribute
accesskey = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.accesskey (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
action :: Text -> Maybe Attribute
action :: Text -> Maybe Attribute
action = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.action (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
allowfullscreen :: Bool -> Maybe Attribute
allowfullscreen :: Bool -> Maybe Attribute
allowfullscreen Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"allowfullscreen" AttributeValue
"allowfullscreen"
allowfullscreen Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
alt :: Text -> Maybe Attribute
alt :: Text -> Maybe Attribute
alt = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.alt (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
async :: Bool -> Maybe Attribute
async :: Bool -> Maybe Attribute
async Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.async AttributeValue
"async"
async Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
autocomplete :: Text -> Maybe Attribute
autocomplete :: Text -> Maybe Attribute
autocomplete = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.autocomplete (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
autofocus :: Bool -> Maybe Attribute
autofocus :: Bool -> Maybe Attribute
autofocus Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.autofocus AttributeValue
"autofocus"
autofocus Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
autoplay :: Bool -> Maybe Attribute
autoplay :: Bool -> Maybe Attribute
autoplay Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.autoplay AttributeValue
"autoplay"
autoplay Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
challenge :: Text -> Maybe Attribute
challenge :: Text -> Maybe Attribute
challenge = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.challenge (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
charset :: Text -> Maybe Attribute
charset :: Text -> Maybe Attribute
charset = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.charset (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
checked :: Bool -> Maybe Attribute
checked :: Bool -> Maybe Attribute
checked Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.checked AttributeValue
"checked"
checked Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
cite :: Text -> Maybe Attribute
cite :: Text -> Maybe Attribute
cite = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.cite (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
css :: [Text] -> Maybe Attribute
css :: [Text] -> Maybe Attribute
css = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> ([Text] -> Attribute) -> [Text] -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.class_ (AttributeValue -> Attribute)
-> ([Text] -> AttributeValue) -> [Text] -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue (Text -> AttributeValue)
-> ([Text] -> Text) -> [Text] -> AttributeValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Text] -> Text
unwords
cols :: Text -> Maybe Attribute
cols :: Text -> Maybe Attribute
cols = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.cols (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
colspan :: Text -> Maybe Attribute
colspan :: Text -> Maybe Attribute
colspan = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.colspan (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
content :: Text -> Maybe Attribute
content :: Text -> Maybe Attribute
content = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.content (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
contenteditable :: Text -> Maybe Attribute
contenteditable :: Text -> Maybe Attribute
contenteditable = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.contenteditable (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
contextmenu :: Text -> Maybe Attribute
= Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.contextmenu (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
controls :: Bool -> Maybe Attribute
controls :: Bool -> Maybe Attribute
controls Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.controls AttributeValue
"controls"
controls Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
coords :: Text -> Maybe Attribute
coords :: Text -> Maybe Attribute
coords = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.coords (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
data_ :: Text -> Maybe Attribute
data_ :: Text -> Maybe Attribute
data_ = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.data_ (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
datetime :: Text -> Maybe Attribute
datetime :: Text -> Maybe Attribute
datetime = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.datetime (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
default_ :: Bool -> Maybe Attribute
default_ :: Bool -> Maybe Attribute
default_ Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"default" AttributeValue
"default"
default_ Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
defer :: Bool -> Maybe Attribute
defer :: Bool -> Maybe Attribute
defer Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.defer AttributeValue
"defer"
defer Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
dir :: Text -> Maybe Attribute
dir :: Text -> Maybe Attribute
dir = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.dir (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
disabled :: Bool -> Maybe Attribute
disabled :: Bool -> Maybe Attribute
disabled Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.disabled AttributeValue
"disabled"
disabled Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
draggable :: Text -> Maybe Attribute
draggable :: Text -> Maybe Attribute
draggable = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.draggable (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
enctype :: Text -> Maybe Attribute
enctype :: Text -> Maybe Attribute
enctype = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.enctype (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
for :: Text -> Maybe Attribute
for :: Text -> Maybe Attribute
for = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.for (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
form :: Text -> Maybe Attribute
form :: Text -> Maybe Attribute
form = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.form (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
formaction :: Text -> Maybe Attribute
formaction :: Text -> Maybe Attribute
formaction = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.formaction (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
formenctype :: Text -> Maybe Attribute
formenctype :: Text -> Maybe Attribute
formenctype = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.formenctype (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
formmethod :: Text -> Maybe Attribute
formmethod :: Text -> Maybe Attribute
formmethod = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.formmethod (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
formnovalidate :: Bool -> Maybe Attribute
formnovalidate :: Bool -> Maybe Attribute
formnovalidate Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.formnovalidate AttributeValue
"formnovalidate"
formnovalidate Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
formtarget :: Text -> Maybe Attribute
formtarget :: Text -> Maybe Attribute
formtarget = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.formtarget (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
headers :: Text -> Maybe Attribute
= Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.headers (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
height :: Text -> Maybe Attribute
height :: Text -> Maybe Attribute
height = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.height (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
hidden :: Bool -> Maybe Attribute
hidden :: Bool -> Maybe Attribute
hidden Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.hidden AttributeValue
"hidden"
hidden Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
high :: Text -> Maybe Attribute
high :: Text -> Maybe Attribute
high = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.high (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
href :: Text -> Maybe Attribute
href :: Text -> Maybe Attribute
href = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.href (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
hreflang :: Text -> Maybe Attribute
hreflang :: Text -> Maybe Attribute
hreflang = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.hreflang (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
httpEquiv :: Text -> Maybe Attribute
httpEquiv :: Text -> Maybe Attribute
httpEquiv = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.httpEquiv (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
icon :: Text -> Maybe Attribute
icon :: Text -> Maybe Attribute
icon = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.icon (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
id :: Text -> Maybe Attribute
id :: Text -> Maybe Attribute
id = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.id (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
inert :: Bool -> Maybe Attribute
inert :: Bool -> Maybe Attribute
inert Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"inert" AttributeValue
"inert"
inert Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
ismap :: Bool -> Maybe Attribute
ismap :: Bool -> Maybe Attribute
ismap Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.ismap AttributeValue
"ismap"
ismap Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
item :: Text -> Maybe Attribute
item :: Text -> Maybe Attribute
item = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.item (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
itemprop :: Text -> Maybe Attribute
itemprop :: Text -> Maybe Attribute
itemprop = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.itemprop (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
itemscope :: Bool -> Maybe Attribute
itemscope :: Bool -> Maybe Attribute
itemscope Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.itemscope AttributeValue
"itemscope"
itemscope Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
itemtype :: Text -> Maybe Attribute
itemtype :: Text -> Maybe Attribute
itemtype = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.itemtype (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
keytype :: Text -> Maybe Attribute
keytype :: Text -> Maybe Attribute
keytype = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.keytype (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
label :: Text -> Maybe Attribute
label :: Text -> Maybe Attribute
label = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.label (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
lang :: Text -> Maybe Attribute
lang :: Text -> Maybe Attribute
lang = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.lang (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
list :: Text -> Maybe Attribute
list :: Text -> Maybe Attribute
list = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.list (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
loop :: Bool -> Maybe Attribute
loop :: Bool -> Maybe Attribute
loop Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.loop AttributeValue
"loop"
loop Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
low :: Text -> Maybe Attribute
low :: Text -> Maybe Attribute
low = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.low (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
manifest :: Text -> Maybe Attribute
manifest :: Text -> Maybe Attribute
manifest = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.manifest (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
max :: Text -> Maybe Attribute
max :: Text -> Maybe Attribute
max = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.max (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
maxlength :: Text -> Maybe Attribute
maxlength :: Text -> Maybe Attribute
maxlength = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.maxlength (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
media :: Text -> Maybe Attribute
media :: Text -> Maybe Attribute
media = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.media (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
method :: Text -> Maybe Attribute
method :: Text -> Maybe Attribute
method = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.method (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
min :: Text -> Maybe Attribute
min :: Text -> Maybe Attribute
min = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.min (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
multiple :: Bool -> Maybe Attribute
multiple :: Bool -> Maybe Attribute
multiple Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.multiple AttributeValue
"multiple"
multiple Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
muted :: Bool -> Maybe Attribute
muted :: Bool -> Maybe Attribute
muted Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"muted" AttributeValue
"muted"
muted Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
name :: Text -> Maybe Attribute
name :: Text -> Maybe Attribute
name = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.name (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
nomodule :: Bool -> Maybe Attribute
nomodule :: Bool -> Maybe Attribute
nomodule Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"nomodule" AttributeValue
"nomodule"
nomodule Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
novalidate :: Bool -> Maybe Attribute
novalidate :: Bool -> Maybe Attribute
novalidate Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.novalidate AttributeValue
"novalidate"
novalidate Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
onbeforeonload :: Text -> Maybe Attribute
onbeforeonload :: Text -> Maybe Attribute
onbeforeonload = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onbeforeonload (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onbeforeprint :: Text -> Maybe Attribute
onbeforeprint :: Text -> Maybe Attribute
onbeforeprint = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onbeforeprint (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onblur :: Text -> Maybe Attribute
onblur :: Text -> Maybe Attribute
onblur = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onblur (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
oncanplay :: Text -> Maybe Attribute
oncanplay :: Text -> Maybe Attribute
oncanplay = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.oncanplay (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
oncanplaythrough :: Text -> Maybe Attribute
oncanplaythrough :: Text -> Maybe Attribute
oncanplaythrough = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.oncanplaythrough (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onchange :: Text -> Maybe Attribute
onchange :: Text -> Maybe Attribute
onchange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onchange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onclick :: Text -> Maybe Attribute
onclick :: Text -> Maybe Attribute
onclick = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onclick (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
oncontextmenu :: Text -> Maybe Attribute
= Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.oncontextmenu (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
ondblclick :: Text -> Maybe Attribute
ondblclick :: Text -> Maybe Attribute
ondblclick = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondblclick (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
ondrag :: Text -> Maybe Attribute
ondrag :: Text -> Maybe Attribute
ondrag = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondrag (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
ondragend :: Text -> Maybe Attribute
ondragend :: Text -> Maybe Attribute
ondragend = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondragend (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
ondragenter :: Text -> Maybe Attribute
ondragenter :: Text -> Maybe Attribute
ondragenter = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondragenter (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
ondragleave :: Text -> Maybe Attribute
ondragleave :: Text -> Maybe Attribute
ondragleave = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondragleave (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
ondragover :: Text -> Maybe Attribute
ondragover :: Text -> Maybe Attribute
ondragover = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondragover (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
ondragstart :: Text -> Maybe Attribute
ondragstart :: Text -> Maybe Attribute
ondragstart = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondragstart (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
ondrop :: Text -> Maybe Attribute
ondrop :: Text -> Maybe Attribute
ondrop = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondrop (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
ondurationchange :: Text -> Maybe Attribute
ondurationchange :: Text -> Maybe Attribute
ondurationchange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondurationchange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onemptied :: Text -> Maybe Attribute
onemptied :: Text -> Maybe Attribute
onemptied = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onemptied (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onended :: Text -> Maybe Attribute
onended :: Text -> Maybe Attribute
onended = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onended (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onerror :: Text -> Maybe Attribute
onerror :: Text -> Maybe Attribute
onerror = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onerror (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onfocus :: Text -> Maybe Attribute
onfocus :: Text -> Maybe Attribute
onfocus = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onfocus (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onformchange :: Text -> Maybe Attribute
onformchange :: Text -> Maybe Attribute
onformchange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onformchange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onforminput :: Text -> Maybe Attribute
onforminput :: Text -> Maybe Attribute
onforminput = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onforminput (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onhaschange :: Text -> Maybe Attribute
onhaschange :: Text -> Maybe Attribute
onhaschange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onhaschange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
oninput :: Text -> Maybe Attribute
oninput :: Text -> Maybe Attribute
oninput = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.oninput (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
oninvalid :: Text -> Maybe Attribute
oninvalid :: Text -> Maybe Attribute
oninvalid = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.oninvalid (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onkeydown :: Text -> Maybe Attribute
onkeydown :: Text -> Maybe Attribute
onkeydown = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onkeydown (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onkeyup :: Text -> Maybe Attribute
onkeyup :: Text -> Maybe Attribute
onkeyup = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onkeyup (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onload :: Text -> Maybe Attribute
onload :: Text -> Maybe Attribute
onload = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onload (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onloadeddata :: Text -> Maybe Attribute
onloadeddata :: Text -> Maybe Attribute
onloadeddata = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onloadeddata (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onloadedmetadata :: Text -> Maybe Attribute
onloadedmetadata :: Text -> Maybe Attribute
onloadedmetadata = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onloadedmetadata (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onloadstart :: Text -> Maybe Attribute
onloadstart :: Text -> Maybe Attribute
onloadstart = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onloadstart (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onmessage :: Text -> Maybe Attribute
onmessage :: Text -> Maybe Attribute
onmessage = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmessage (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onmousedown :: Text -> Maybe Attribute
onmousedown :: Text -> Maybe Attribute
onmousedown = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmousedown (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onmousemove :: Text -> Maybe Attribute
onmousemove :: Text -> Maybe Attribute
onmousemove = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmousemove (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onmouseout :: Text -> Maybe Attribute
onmouseout :: Text -> Maybe Attribute
onmouseout = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmouseout (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onmouseover :: Text -> Maybe Attribute
onmouseover :: Text -> Maybe Attribute
onmouseover = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmouseover (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onmouseup :: Text -> Maybe Attribute
onmouseup :: Text -> Maybe Attribute
onmouseup = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmouseup (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onmousewheel :: Text -> Maybe Attribute
onmousewheel :: Text -> Maybe Attribute
onmousewheel = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmousewheel (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
ononline :: Text -> Maybe Attribute
ononline :: Text -> Maybe Attribute
ononline = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ononline (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onpagehide :: Text -> Maybe Attribute
onpagehide :: Text -> Maybe Attribute
onpagehide = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onpagehide (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onpageshow :: Text -> Maybe Attribute
onpageshow :: Text -> Maybe Attribute
onpageshow = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onpageshow (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onpause :: Text -> Maybe Attribute
onpause :: Text -> Maybe Attribute
onpause = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onpause (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onplay :: Text -> Maybe Attribute
onplay :: Text -> Maybe Attribute
onplay = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onplay (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onplaying :: Text -> Maybe Attribute
onplaying :: Text -> Maybe Attribute
onplaying = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onplaying (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onprogress :: Text -> Maybe Attribute
onprogress :: Text -> Maybe Attribute
onprogress = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onprogress (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onpropstate :: Text -> Maybe Attribute
onpropstate :: Text -> Maybe Attribute
onpropstate = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onpropstate (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onratechange :: Text -> Maybe Attribute
onratechange :: Text -> Maybe Attribute
onratechange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onratechange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onreadystatechange :: Text -> Maybe Attribute
onreadystatechange :: Text -> Maybe Attribute
onreadystatechange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onreadystatechange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onredo :: Text -> Maybe Attribute
onredo :: Text -> Maybe Attribute
onredo = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onredo (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onresize :: Text -> Maybe Attribute
onresize :: Text -> Maybe Attribute
onresize = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onresize (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onscroll :: Text -> Maybe Attribute
onscroll :: Text -> Maybe Attribute
onscroll = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onscroll (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onseeked :: Text -> Maybe Attribute
onseeked :: Text -> Maybe Attribute
onseeked = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onseeked (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onseeking :: Text -> Maybe Attribute
onseeking :: Text -> Maybe Attribute
onseeking = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onseeking (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onselect :: Text -> Maybe Attribute
onselect :: Text -> Maybe Attribute
onselect = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onselect (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onstalled :: Text -> Maybe Attribute
onstalled :: Text -> Maybe Attribute
onstalled = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onstalled (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onstorage :: Text -> Maybe Attribute
onstorage :: Text -> Maybe Attribute
onstorage = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onstorage (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onsubmit :: Text -> Maybe Attribute
onsubmit :: Text -> Maybe Attribute
onsubmit = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onsubmit (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onsuspend :: Text -> Maybe Attribute
onsuspend :: Text -> Maybe Attribute
onsuspend = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onsuspend (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
ontimeupdate :: Text -> Maybe Attribute
ontimeupdate :: Text -> Maybe Attribute
ontimeupdate = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ontimeupdate (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onundo :: Text -> Maybe Attribute
onundo :: Text -> Maybe Attribute
onundo = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onundo (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onunload :: Text -> Maybe Attribute
onunload :: Text -> Maybe Attribute
onunload = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onunload (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onvolumechange :: Text -> Maybe Attribute
onvolumechange :: Text -> Maybe Attribute
onvolumechange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onvolumechange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
onwaiting :: Text -> Maybe Attribute
onwaiting :: Text -> Maybe Attribute
onwaiting = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onwaiting (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
open :: Bool -> Maybe Attribute
open :: Bool -> Maybe Attribute
open Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.open AttributeValue
"open"
open Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
optimum :: Text -> Maybe Attribute
optimum :: Text -> Maybe Attribute
optimum = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.optimum (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
pattern :: Text -> Maybe Attribute
pattern :: Text -> Maybe Attribute
pattern = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.pattern (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
ping :: Text -> Maybe Attribute
ping :: Text -> Maybe Attribute
ping = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ping (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
placeholder :: Text -> Maybe Attribute
placeholder :: Text -> Maybe Attribute
placeholder = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.placeholder (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
playsinline :: Bool -> Maybe Attribute
playsinline :: Bool -> Maybe Attribute
playsinline Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"playsinline" AttributeValue
"playsinline"
playsinline Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
preload :: Text -> Maybe Attribute
preload :: Text -> Maybe Attribute
preload = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.preload (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
pubdate :: Text -> Maybe Attribute
pubdate :: Text -> Maybe Attribute
pubdate = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.pubdate (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
radiogroup :: Text -> Maybe Attribute
radiogroup :: Text -> Maybe Attribute
radiogroup = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.radiogroup (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
readonly :: Bool -> Maybe Attribute
readonly :: Bool -> Maybe Attribute
readonly Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.readonly AttributeValue
"readonly"
readonly Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
rel :: Text -> Maybe Attribute
rel :: Text -> Maybe Attribute
rel = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.rel (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
required :: Bool -> Maybe Attribute
required :: Bool -> Maybe Attribute
required Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.required AttributeValue
"required"
required Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
reversed :: Bool -> Maybe Attribute
reversed :: Bool -> Maybe Attribute
reversed Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.reversed AttributeValue
"reversed"
reversed Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
role :: Text -> Maybe Attribute
role :: Text -> Maybe Attribute
role = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.role (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
rows :: Text -> Maybe Attribute
rows :: Text -> Maybe Attribute
rows = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.rows (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
rowspan :: Text -> Maybe Attribute
rowspan :: Text -> Maybe Attribute
rowspan = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.rowspan (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
sandbox :: Text -> Maybe Attribute
sandbox :: Text -> Maybe Attribute
sandbox = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.sandbox (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
scope :: Text -> Maybe Attribute
scope :: Text -> Maybe Attribute
scope = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.scope (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
scoped :: Bool -> Maybe Attribute
scoped :: Bool -> Maybe Attribute
scoped Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.scoped AttributeValue
"scoped"
scoped Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
seamless :: Bool -> Maybe Attribute
seamless :: Bool -> Maybe Attribute
seamless Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.seamless AttributeValue
"seamless"
seamless Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
selected :: Bool -> Maybe Attribute
selected :: Bool -> Maybe Attribute
selected Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.selected AttributeValue
"selected"
selected Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
shape :: Text -> Maybe Attribute
shape :: Text -> Maybe Attribute
shape = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.shape (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
size :: Text -> Maybe Attribute
size :: Text -> Maybe Attribute
size = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.size (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
sizes :: Text -> Maybe Attribute
sizes :: Text -> Maybe Attribute
sizes = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.sizes (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
span :: Text -> Maybe Attribute
span :: Text -> Maybe Attribute
span = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.span (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
spellcheck :: Text -> Maybe Attribute
spellcheck :: Text -> Maybe Attribute
spellcheck = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.spellcheck (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
src :: Text -> Maybe Attribute
src :: Text -> Maybe Attribute
src = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.src (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
srcdoc :: Text -> Maybe Attribute
srcdoc :: Text -> Maybe Attribute
srcdoc = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.srcdoc (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
start :: Text -> Maybe Attribute
start :: Text -> Maybe Attribute
start = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.start (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
step :: Text -> Maybe Attribute
step :: Text -> Maybe Attribute
step = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.step (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
style :: [Text] -> Maybe Attribute
style :: [Text] -> Maybe Attribute
style = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> ([Text] -> Attribute) -> [Text] -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.style (AttributeValue -> Attribute)
-> ([Text] -> AttributeValue) -> [Text] -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue (Text -> AttributeValue)
-> ([Text] -> Text) -> [Text] -> AttributeValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Text] -> Text
unwords
subject :: Text -> Maybe Attribute
subject :: Text -> Maybe Attribute
subject = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.subject (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
summary :: Text -> Maybe Attribute
summary :: Text -> Maybe Attribute
summary = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.summary (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
tabindex :: Text -> Maybe Attribute
tabindex :: Text -> Maybe Attribute
tabindex = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.tabindex (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
target :: Text -> Maybe Attribute
target :: Text -> Maybe Attribute
target = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.target (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
title :: Text -> Maybe Attribute
title :: Text -> Maybe Attribute
title = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.title (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
truespeed :: Bool -> Maybe Attribute
truespeed :: Bool -> Maybe Attribute
truespeed Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"truespeed" AttributeValue
"truespeed"
truespeed Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
type_ :: Text -> Maybe Attribute
type_ :: Text -> Maybe Attribute
type_ = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.type_ (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
typemustmatch :: Bool -> Maybe Attribute
typemustmatch :: Bool -> Maybe Attribute
typemustmatch Bool
True = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"typemustmatch" AttributeValue
"typemustmatch"
typemustmatch Bool
False = Maybe Attribute
forall a. Maybe a
Nothing
usemap :: Text -> Maybe Attribute
usemap :: Text -> Maybe Attribute
usemap = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.usemap (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
value :: Text -> Maybe Attribute
value :: Text -> Maybe Attribute
value = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.value (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
width :: Text -> Maybe Attribute
width :: Text -> Maybe Attribute
width = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.width (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
wrap :: Text -> Maybe Attribute
wrap :: Text -> Maybe Attribute
wrap = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.wrap (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue
xmlns :: Text -> Maybe Attribute
xmlns :: Text -> Maybe Attribute
xmlns = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.xmlns (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue