on develop help sign in
Merge commit 'dc9f882b95387ced1eb48f4d0669ab3def26d9a0' into develop
commite57df1e9c53a12c5de35810680b5cd349417ed88 authorRyan Trinkle <ryan.trinkle@gmail.com> dateWed 11 Sep 2019, 15:12 (7 years ago) parent233a5f4dc9f882
1 file changed+1−1
reflex-dom-core/src/Reflex/Dom/Builder/Static.hs+1−1
reflex-dom-core/src/Reflex/Dom/Builder/Static.hs+1−1
@@ -288,7 +288,7 @@ instance SupportsStaticDomBuilder t m => DomBuilder t (StaticDomBuilderT t m) wh
288288 StaticDomBuilderT $ do
289289 let shouldEscape = elementTag `Set.notMember` noEscapeElements
290290 (result, innerHtml) <- lift $ lift $ runStaticDomBuilderT child $ StaticDomBuilderEnv shouldEscape Nothing
291− attrs0 <- foldDyn applyMap (Map.insert "data-ssr" "" $ cfg ^. initialAttributes) (cfg ^. modifyAttributes)
291+ attrs0 <- foldDyn applyMap (cfg ^. initialAttributes) (cfg ^. modifyAttributes)
292292 selectValue <- asks _staticDomBuilderEnv_selectValue
293293 let addSelectedAttr attrs sel = case Map.lookup "value" attrs of
294294 Just v | v == sel -> attrs <> Map.singleton "selected" ""