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

fix header

Browse Source
This commit is contained in:
goolord 2019-04-29 16:28:13 -04:00
parent 3100cf23bc
commit fb6a80c49e
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lucid-colonnade/src/Lucid/Colonnade.hs
View File

@ -200,11 +200,23 @@ encodeTableSized :: forall f h a d c.
encodeTableSized mtheadAttrs tbodyAttrs trAttrs wrapContent tableAttrs colonnade xs = encodeTableSized mtheadAttrs tbodyAttrs trAttrs wrapContent tableAttrs colonnade xs =
table_ tableAttrs $ do table_ tableAttrs $ do
d1 <- case E.headednessExtractForall of d1 <- case E.headednessExtractForall of
Nothing -> return mempty Nothing -> pure mempty
Just extractForall -> do Just extractForall -> do
let (theadAttrs,theadTrAttrs) = extract mtheadAttrs let (theadAttrs,theadTrAttrs) = extract mtheadAttrs
thead_ theadAttrs $ tr_ theadTrAttrs $ do thead_ theadAttrs $ tr_ theadTrAttrs $ do
foldlMapM' (wrapContent th_ . extract . (\(E.Sized _ h) -> h) . E.oneColonnadeHead) (E.getColonnade colonnade) foldlMapM'
(wrapContent th_ . extract .
(\(E.Sized i h) -> case E.headednessExtract of
Just f ->
let (Cell attrs content) = f h
in E.headednessPure $ Cell (setColspanOrHide i attrs) content
Nothing -> E.headednessPure mempty
-- (E.Headed (Cell attrs content)) -> E.Headed $ Cell (setColspanOrHide i attrs) content
-- E.Headless -> E.Headless
)
. E.oneColonnadeHead
)
(E.getColonnade colonnade)
where where
extract :: forall y. h y -> y extract :: forall y. h y -> y
extract = E.runExtractForall extractForall extract = E.runExtractForall extractForall