haskell/colonnade-old
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix table header. Add table row.

Browse Source
This commit is contained in:
Andrew Martin 2016-06-22 15:27:01 -04:00
parent 189c95f7fe
commit 2ca732f4c9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,7 +24,7 @@ basic :: (MonadWidget t m, Foldable f)
-> m ()
basic tableAttrs as (Encoding v) = do
elAttr "table" tableAttrs $ do
el "thead" $ forM_ v $ \(Headed (Cell attrs contents),_) ->
el "thead" $ el "tr" $ forM_ v $ \(Headed (Cell attrs contents),_) ->
elAttr "th" attrs contents
el "tbody" $ forM_ as $ \a -> do
el "tr" $ forM_ v $ \(_,encode) -> do
@ -38,7 +38,7 @@ dynamic :: (MonadWidget t m, Foldable f)
-> m ()
dynamic tableAttrs as (Encoding v) = do
elAttr "table" tableAttrs $ do
el "thead" $ forM_ v $ \(Headed (Cell attrs contents),_) ->
el "thead" $ el "tr" $ forM_ v $ \(Headed (Cell attrs contents),_) ->
elAttr "th" attrs contents
el "tbody" $ forM_ as $ \a -> do
el "tr" $ forM_ v $ \(_,encode) -> do