diff --git a/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs b/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
index f08e879..1b70262 100644
--- a/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
+++ b/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
@@ -116,7 +116,7 @@ basic tableAttrs = static tableAttrs (Just (M.empty,M.empty)) mempty (const memp
body :: (DomBuilder t m, PostBuild t m, Foldable f, Monoid e)
=> M.Map T.Text T.Text
- -> (a -> M.Map T.Text T.Text)
+ -> (a -> Dynamic t (M.Map T.Text T.Text))
-> Colonnade h a (Cell t m e)
-> f a
-> m e
@@ -124,14 +124,14 @@ body bodyAttrs trAttrs colonnade collection =
elAttr "tbody" bodyAttrs (bodyRows trAttrs colonnade collection)
bodyRows :: (DomBuilder t m, PostBuild t m, Foldable f, Monoid e)
- => (a -> M.Map T.Text T.Text)
+ => (a -> Dynamic t (M.Map T.Text T.Text))
-> Colonnade p a (Cell t m e)
-> f a
-> m e
bodyRows trAttrs colonnade collection =
unWrappedApplicative . flip foldMap collection $ \a ->
WrappedApplicative .
- elAttr "tr" (trAttrs a) .
+ elDynAttr "tr" (trAttrs a) .
unWrappedApplicative $
E.rowMonoidal colonnade (WrappedApplicative . elFromCell "td") a
@@ -168,14 +168,14 @@ static tableAttrs mheadAttrs bodyAttrs trAttrs colonnade collection =
for_ mheadAttrs $ \(headAttrs,headTrAttrs) ->
elAttr "thead" headAttrs . elAttr "tr" headTrAttrs $
E.headerMonadicGeneral_ colonnade (elFromCell "th")
- body bodyAttrs trAttrs colonnade collection
+ body bodyAttrs (pure . trAttrs) colonnade collection
staticTableless ::
(DomBuilder t m, PostBuild t m, Foldable f, Foldable h, Monoid e)
=> Maybe (M.Map T.Text T.Text, M.Map T.Text T.Text)
-- ^ Attributes of @\@ and its @\@, pass 'Nothing' to omit @\@
-> M.Map T.Text T.Text -- ^ @\