1
1
mirror of https://github.com/github/semantic.git synced 2024-12-23 23:11:50 +03:00

Concat the columns.

This commit is contained in:
Rob Rix 2015-12-07 11:53:04 -05:00
parent 78d077b2fd
commit 8d7ebed794

View File

@ -53,7 +53,7 @@ data Row = Row [HTML] [HTML]
deriving Eq
instance Show Row where
show (Row left right) = tag "tr" (tag "td" $ show <$> left) (tag "td" $ show <$> right)
show (Row left right) = tag "tr" $ (tag "td" . concat $ show <$> left) ++ (tag "td" . concat $ show <$> right)
bimap :: ([HTML] -> [HTML]) -> ([HTML] -> [HTML]) -> Row -> Row
bimap f g (Row a b) = Row (f a) (g b)