File tree Expand file tree Collapse file tree 3 files changed +14
-4
lines changed Expand file tree Collapse file tree 3 files changed +14
-4
lines changed Original file line number Diff line number Diff line change @@ -12,6 +12,7 @@ import DOM.HTML.Indexed.InputType (InputType)
1212import DOM.HTML.Indexed.KindValue (KindValue )
1313import DOM.HTML.Indexed.MenuitemType (MenuitemType )
1414import DOM.HTML.Indexed.MenuType (MenuType )
15+ import DOM.HTML.Indexed.OnOff (OnOff )
1516import DOM.HTML.Indexed.OrderedListType (OrderedListType )
1617import DOM.HTML.Indexed.PreloadValue (PreloadValue )
1718import DOM.HTML.Indexed.ScopeValue (ScopeValue )
@@ -28,7 +29,6 @@ type GlobalAttributes r =
2829 , spellcheck :: Boolean
2930 , draggable :: Boolean
3031 , lang :: String
31- , translate :: String
3232 , dir :: DirValue
3333 , hidden :: Boolean
3434 , tabIndex :: Int
@@ -263,7 +263,7 @@ type HTMLfooter = Interactive ()
263263type HTMLform = Interactive
264264 ( acceptCharset :: String
265265 , action :: String
266- , autocomplete :: Boolean
266+ , autocomplete :: OnOff
267267 , enctype :: String
268268 , method :: String
269269 , name :: String
@@ -326,7 +326,7 @@ type HTMLimg = Interactive
326326
327327type HTMLinput = Interactive
328328 ( accept :: MediaType
329- , autocomplete :: String
329+ , autocomplete :: OnOff
330330 , autofocus :: Boolean
331331 , checked :: Boolean
332332 , disabled :: Boolean
Original file line number Diff line number Diff line change @@ -7,4 +7,4 @@ data FormMethod
77renderFormMethod :: FormMethod -> String
88renderFormMethod = case _ of
99 POST -> " post"
10- GET -> " get"
10+ GET -> " get"
Original file line number Diff line number Diff line change 1+ module DOM.HTML.Indexed.OnOff where
2+
3+ data OnOff
4+ = On
5+ | Off
6+
7+ renderOnOff :: OnOff -> String
8+ renderOnOff = case _ of
9+ On -> " on"
10+ Off -> " off"
You can’t perform that action at this time.
0 commit comments