File tree 1 file changed +2
-1
lines changed
1 file changed +2
-1
lines changed Original file line number Diff line number Diff line change @@ -6,6 +6,7 @@ import Halogen.VDom.DOM.Prop (Prop(..), PropValue)
6
6
import Data.Array as A
7
7
import Foreign (unsafeToForeign , typeOf )
8
8
import Data.Maybe (Maybe (..))
9
+ import Data.Number.Format as Data.Number.Format
9
10
import Data.String as S
10
11
import Data.Set as Set
11
12
import Halogen.VDom.StringRenderer as VSR
@@ -44,7 +45,7 @@ propNameToAttrName = case _ of
44
45
renderProperty ∷ String → PropValue → Maybe String
45
46
renderProperty name prop = case typeOf (unsafeToForeign prop) of
46
47
" string" → renderAttr name' $ (unsafeCoerce ∷ PropValue → String ) prop
47
- " number" → renderAttr name' $ show ((unsafeCoerce ∷ PropValue → Number ) prop)
48
+ " number" → renderAttr name' $ Data.Number.Format .toString ((unsafeCoerce ∷ PropValue → Number ) prop)
48
49
" boolean" →
49
50
if ((unsafeCoerce :: PropValue -> Boolean ) prop)
50
51
then Just $ escape name'
You can’t perform that action at this time.
0 commit comments