haskell/colonnade
1
0
Fork 1
mirror of https://github.com/byteverse/colonnade.git synced 2026-09-09 13:23:50 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

stop wrapping sectioned table in tbody

Browse Source
This commit is contained in:
Andrew Martin 2017-05-08 21:13:15 -04:00
parent 88b2704951
commit 432ab8d193
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs
View File

@ -134,6 +134,8 @@ static tableAttrs mheadAttrs bodyAttrs trAttrs colonnade collection =
E.headerMonadicGeneral_ colonnade (elFromCell "th") E.headerMonadicGeneral_ colonnade (elFromCell "th")
body bodyAttrs trAttrs colonnade collection body bodyAttrs trAttrs colonnade collection
-- | A table dividing into sections by @\<td\>@ elements that
-- take up entire rows.
sectioned :: sectioned ::
(DomBuilder t m, PostBuild t m, Foldable f, Foldable h, Foldable g) (DomBuilder t m, PostBuild t m, Foldable f, Foldable h, Foldable g)
=> M.Map T.Text T.Text -- ^ @\<table\>@ tag attributes => M.Map T.Text T.Text -- ^ @\<table\>@ tag attributes
@ -147,7 +149,6 @@ sectioned ::
-> m () -> m ()
sectioned tableAttrs mheadAttrs bodyAttrs trAttrs dividerContent colonnade@(E.Colonnade v) collection = do sectioned tableAttrs mheadAttrs bodyAttrs trAttrs dividerContent colonnade@(E.Colonnade v) collection = do
let vlen = V.length v let vlen = V.length v
elAttr "tbody" bodyAttrs $ do
elAttr "table" tableAttrs $ do elAttr "table" tableAttrs $ do
for_ mheadAttrs $ \(headAttrs,headTrAttrs) -> for_ mheadAttrs $ \(headAttrs,headTrAttrs) ->
elAttr "thead" headAttrs . elAttr "tr" headTrAttrs $ elAttr "thead" headAttrs . elAttr "tr" headTrAttrs $