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)
12
12
import DOM.HTML.Indexed.KindValue (KindValue )
13
13
import DOM.HTML.Indexed.MenuitemType (MenuitemType )
14
14
import DOM.HTML.Indexed.MenuType (MenuType )
15
+ import DOM.HTML.Indexed.OnOff (OnOff )
15
16
import DOM.HTML.Indexed.OrderedListType (OrderedListType )
16
17
import DOM.HTML.Indexed.PreloadValue (PreloadValue )
17
18
import DOM.HTML.Indexed.ScopeValue (ScopeValue )
@@ -28,7 +29,6 @@ type GlobalAttributes r =
28
29
, spellcheck :: Boolean
29
30
, draggable :: Boolean
30
31
, lang :: String
31
- , translate :: String
32
32
, dir :: DirValue
33
33
, hidden :: Boolean
34
34
, tabIndex :: Int
@@ -263,7 +263,7 @@ type HTMLfooter = Interactive ()
263
263
type HTMLform = Interactive
264
264
( acceptCharset :: String
265
265
, action :: String
266
- , autocomplete :: Boolean
266
+ , autocomplete :: OnOff
267
267
, enctype :: String
268
268
, method :: String
269
269
, name :: String
@@ -326,7 +326,7 @@ type HTMLimg = Interactive
326
326
327
327
type HTMLinput = Interactive
328
328
( accept :: MediaType
329
- , autocomplete :: String
329
+ , autocomplete :: OnOff
330
330
, autofocus :: Boolean
331
331
, checked :: Boolean
332
332
, disabled :: Boolean
Original file line number Diff line number Diff line change @@ -7,4 +7,4 @@ data FormMethod
7
7
renderFormMethod :: FormMethod -> String
8
8
renderFormMethod = case _ of
9
9
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