on develop help sign in
Merge pull request #196 from MarisaKirisame/develop

add elDynAttrNS

commit5141474f8bbc969c449822d191f604572a55af70 authorRyan Trinkle <ryan.trinkle@gmail.com> dateThu 1 Feb 2018, 11:02 (9 years ago) parentb3db41a0e60b49
1 file changed+5
reflex-dom-core/src/Reflex/Dom/Widget/Basic.hs+5
reflex-dom-core/src/Reflex/Dom/Widget/Basic.hs+5
@@ -29,6 +29,7 @@ module Reflex.Dom.Widget.Basic
2929 , elClass
3030 , elDynAttr
3131 , elDynClass
32+ , elDynAttrNS
3233
3334 -- ** With Element Results
3435 , el'
@@ -224,6 +225,10 @@ elDynAttrNS' mns elementTag attrs child = do
224225 notReadyUntil postBuild
225226 return result
226227
228+{-# INLINABLE elDynAttrNS #-}
229+elDynAttrNS :: forall t m a. (DomBuilder t m, PostBuild t m) => Maybe Text -> Text -> Dynamic t (Map Text Text) -> m a -> m a
230+elDynAttrNS mns elementTag attrs child = fmap snd $ elDynAttrNS' mns elementTag attrs child
231+
227232dynamicAttributesToModifyAttributes :: (Ord k, PostBuild t m) => Dynamic t (Map k Text) -> m (Event t (Map k (Maybe Text)))
228233dynamicAttributesToModifyAttributes = dynamicAttributesToModifyAttributesWithInitial mempty
229234