byteverse/colonnade
1
1
Fork 0
mirror of https://github.com/byteverse/colonnade.git synced 2024-08-16 10:10:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

expandablePreloaded no longer discards header row stuff

Browse Source
This commit is contained in:
Andrew Martin 2018-11-20 17:05:35 -05:00
parent 518423ef9e
commit 11ced47370
No known key found for this signature in database
GPG Key ID: 4FEE56C538F773B4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -655,7 +655,8 @@ expandablePreloaded :: forall t m e a. (MonadWidget t m, Semigroup e)
-> m (Event t e)
expandablePreloaded (Bureau tableAttrs (E.Headed (theadAttrs,theadRowAttrs)) bodyAttrs _trBuildAttrs) f n colonnade@(E.Colonnade v) xs = do
elDynAttr "table" tableAttrs $ do
_ <- elDynAttr "thead" theadAttrs $ elDynAttr "tr" theadRowAttrs $ E.headerMonadicGeneral_ colonnade (el "th")
(_,ds) <- elDynAttr "thead" theadAttrs $ elDynAttr "tr" theadRowAttrs $ do
E.headerMonadicGeneral colonnade (fmap (\(x,y) -> ([x],[y])) . el "th")
ys <- sample (current xs)
es <- elDynAttr "tbody" bodyAttrs $ forM (enumFromTo 0 (n - 1)) $ \ix -> do
let stream = fmapMaybe (V.!? ix) (updated xs)
@ -665,7 +666,7 @@ expandablePreloaded (Bureau tableAttrs (E.Headed (theadAttrs,theadRowAttrs)) bod
Just y -> do
a <- holdDyn y stream
buildRow a visible
pure (mconcat es)
pure (mconcat (mconcat ds : es))
where
vlen = V.length v
buildRow :: Dynamic t a -> Dynamic t Bool -> m (Event t e)