5141474 · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

on develop help sign in

Merge pull request #196 from MarisaKirisame/develop

5141474Ryan Trinkle9 years ago

reflex-dom-core/src/Reflex/Dom/Widget/Basic.hs+5

@@ -29,6 +29,7 @@ module Reflex.Dom.Widget.Basic

29 , elClass

30 , elDynAttr

31 , elDynClass

32+ , elDynAttrNS

33 -- ** With Element Results

34 -- ** With Element Results

34 , el'

35 , el'

@@ -224,6 +225,10 @@ elDynAttrNS' mns elementTag attrs child = do

224 notReadyUntil postBuild

225 notReadyUntil postBuild

225 return result

226 return result

226

227

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+

227dynamicAttributesToModifyAttributes :: (Ord k, PostBuild t m) => Dynamic t (Map k Text) -> m (Event t (Map k (Maybe Text)))

232dynamicAttributesToModifyAttributes :: (Ord k, PostBuild t m) => Dynamic t (Map k Text) -> m (Event t (Map k (Maybe Text)))

228dynamicAttributesToModifyAttributes = dynamicAttributesToModifyAttributesWithInitial mempty

233dynamicAttributesToModifyAttributes = dynamicAttributesToModifyAttributesWithInitial mempty

229

234