Skip to content

Commit 1fd97d3

Browse files
committed
Use OnOff for autocomplete
1 parent 63766d9 commit 1fd97d3

File tree

3 files changed

+14
-4
lines changed

3 files changed

+14
-4
lines changed

src/DOM/HTML/Indexed.purs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -12,6 +12,7 @@ import DOM.HTML.Indexed.InputType (InputType)
1212
import DOM.HTML.Indexed.KindValue (KindValue)
1313
import DOM.HTML.Indexed.MenuitemType (MenuitemType)
1414
import DOM.HTML.Indexed.MenuType (MenuType)
15+
import DOM.HTML.Indexed.OnOff (OnOff)
1516
import DOM.HTML.Indexed.OrderedListType (OrderedListType)
1617
import DOM.HTML.Indexed.PreloadValue (PreloadValue)
1718
import 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 ()
263263
type 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

327327
type HTMLinput = Interactive
328328
( accept :: MediaType
329-
, autocomplete :: String
329+
, autocomplete :: OnOff
330330
, autofocus :: Boolean
331331
, checked :: Boolean
332332
, disabled :: Boolean

src/DOM/HTML/Indexed/FormMethod.purs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -7,4 +7,4 @@ data FormMethod
77
renderFormMethod :: FormMethod -> String
88
renderFormMethod = case _ of
99
POST -> "post"
10-
GET -> "get"
10+
GET -> "get"

src/DOM/HTML/Indexed/OnOff.purs

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
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"

0 commit comments

Comments
 (0)