Set 'autocomplete' attribute type to String (#29)

chekoopa · Mikhail Chekan · web-flow · commit 0c9481c507bf · 2020-10-13T14:34:57.000+08:00
Co-authored-by: Mikhail Chekan &lt;mikhail.chekan@polyus-nt.ru&gt;
diff --git a/src/Flame/HTML/Attribute/Internal.purs b/src/Flame/HTML/Attribute/Internal.purs
@@ -745,8 +745,8 @@ version = createAttribute "version" <<< show
 numOctaves :: ToIntAttribute
 numOctaves = createAttribute "numOctaves" <<< show
 
-autocomplete :: ToBooleanAttribute
-autocomplete = createProperty "autocomplete" <<< booleanToFalsyString
+autocomplete :: ToStringAttribute
+autocomplete = createProperty "autocomplete"
 
 autofocus :: ToBooleanAttribute
 autofocus = createProperty "autofocus" <<< booleanToFalsyString
diff --git a/test/Main.purs b/test/Main.purs
@@ -182,15 +182,15 @@ main =
                                                         HE.br,
                                                         HE.text "Test",
                                                         HE.button (HA.createAttribute "my-attribute" "myValue") "+",
-                                                        HE.hr' [HA.autocomplete false, HA.style { border: "200px solid blue"}] ,
+                                                        HE.hr' [HA.autocomplete "off", HA.style { border: "200px solid blue"}] ,
                                                         HE.div_ $ HE.div_ [
                                                                 HE.span_ [ HE.a [HA.autofocus true] "here" ]
                                                         ]
                                                 ]
                                         ]
                                 ]
                                 html' <- liftEffect $ FRS.render html
-                                TUA.equal """<html lang="en"><head disabled="true"><title>title</title></head><body id="content"><main><button style="display:block;width:20px">-</button><br>Test<button my-attribute="myValue">+</button><hr style="border:200px solid blue"><div><div><span><a autofocus="true">here</a></span></div></div></main></body></html>""" html'
+                                TUA.equal """<html lang="en"><head disabled="true"><title>title</title></head><body id="content"><main><button style="display:block;width:20px">-</button><br>Test<button my-attribute="myValue">+</button><hr autocomplete="off" style="border:200px solid blue"><div><div><span><a autofocus="true">here</a></span></div></div></main></body></html>""" html'
 
                         test "events" do
                                 let html = HE.a [HA.onClick unit, HA.onInput (const unit)] [HE.text "TEST"]

Original file line number	Diff line number	Diff line change
`@@ -182,15 +182,15 @@ main =`
`182`	`182`	`HE.br,`
`183`	`183`	`HE.text "Test",`
`184`	`184`	`HE.button (HA.createAttribute "my-attribute" "myValue") "+",`
`185`		`- HE.hr' [HA.autocomplete false, HA.style { border: "200px solid blue"}] ,`
	`185`	`+ HE.hr' [HA.autocomplete "off", HA.style { border: "200px solid blue"}] ,`
`186`	`186`	`HE.div_ $ HE.div_ [`
`187`	`187`	`HE.span_ [ HE.a [HA.autofocus true] "here" ]`
`188`	`188`	`]`
`189`	`189`	`]`
`190`	`190`	`]`
`191`	`191`	`]`
`192`	`192`	`html' <- liftEffect $ FRS.render html`
`193`		`- TUA.equal """<html lang="en"><head disabled="true"><title>title</title></head><body id="content"><main><button style="display:block;width:20px">-</button><br>Test<button my-attribute="myValue">+</button><hr style="border:200px solid blue"><div><div><span><a autofocus="true">here</a></span></div></div></main></body></html>""" html'`
	`193`	`+ TUA.equal """<html lang="en"><head disabled="true"><title>title</title></head><body id="content"><main><button style="display:block;width:20px">-</button><br>Test<button my-attribute="myValue">+</button><hr autocomplete="off" style="border:200px solid blue"><div><div><span><a autofocus="true">here</a></span></div></div></main></body></html>""" html'`
`194`	`194`
`195`	`195`	`test "events" do`
`196`	`196`	`let html = HE.a [HA.onClick unit, HA.onInput (const unit)] [HE.text "TEST"]`