on develop help sign in
add elDynAttrNS
commit08af0179ddb3595c6c1433a3d65800571ae50fed authorMarisa Kirisame <lolisa@marisa.moe> dateMon 22 Jan 2018, 15:28 (9 years ago) parentebeb2e7
1 file changed+5
reflex-dom-core/src/Reflex/Dom/Widget/Basic.hs+5
reflex-dom-core/src/Reflex/Dom/Widget/Basic.hs+5
@@ -27,6 +27,7 @@ module Reflex.Dom.Widget.Basic
2727 , elClass
2828 , elDynAttr
2929 , elDynClass
30+ , elDynAttrNS
3031
3132 -- ** With Element Results
3233 , el'
@@ -213,6 +214,10 @@ elDynAttrNS' mns elementTag attrs child = do
213214 notReadyUntil postBuild
214215 return result
215216
217+{-# INLINABLE elDynAttrNS #-}
218+elDynAttrNS :: forall t m a. (DomBuilder t m, PostBuild t m) => Maybe Text -> Text -> Dynamic t (Map Text Text) -> m a -> m a
219+elDynAttrNS mns elementTag attrs child = fmap snd $ elDynAttrNS' mns elementTag attrs child
220+
216221dynamicAttributesToModifyAttributes :: (Ord k, PostBuild t m) => Dynamic t (Map k Text) -> m (Event t (Map k (Maybe Text)))
217222dynamicAttributesToModifyAttributes = dynamicAttributesToModifyAttributesWithInitial mempty
218223