From 2ca732f4c99c9d38c3c15051b4705d4c4f804243 Mon Sep 17 00:00:00 2001 From: Andrew Martin Date: Wed, 22 Jun 2016 15:27:01 -0400 Subject: [PATCH] Fix table header. Add table row. --- reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs b/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs index 5d6d7e6..1d52dcc 100644 --- a/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs +++ b/reflex-dom-colonnade/src/Reflex/Dom/Colonnade.hs @@ -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