We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 8d3d50b commit 8eeee70Copy full SHA for 8eeee70
src/Halogen/VDom/DOM/StringRenderer.purs
@@ -44,7 +44,7 @@ propNameToAttrName = case _ of
44
renderProperty ∷ String → PropValue → Maybe String
45
renderProperty name prop = case typeOf (unsafeToForeign prop) of
46
"string" → renderAttr name' $ (unsafeCoerce ∷ PropValue → String) prop
47
- "number" → renderAttr name' $ show ((unsafeCoerce ∷ PropValue → String) prop)
+ "number" → renderAttr name' $ show ((unsafeCoerce ∷ PropValue → Number) prop)
48
"boolean" →
49
if ((unsafeCoerce :: PropValue -> Boolean) prop)
50
then Just $ escape name'
0 commit comments