github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-18 12:21:57 +03:00
Code Issues Projects Releases Wiki Activity

Revert "display classes in ToMarkup Row instance"

Browse Source 
This reverts commit 0c155677853039ba10258fdbec0a02f121bea4e4.
This commit is contained in:
Rob Rix 2015-12-07 16:28:26 -05:00
parent 19d92de3e0
commit aed70270f9
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Split.hs
View File

@ -7,7 +7,6 @@ import Term
import Syntax
import Control.Monad
import Control.Comonad.Cofree
import qualified Data.List as L
import Range
import Control.Monad.Free
import Data.ByteString.Lazy.Internal
@ -62,7 +61,7 @@ makeRow :: [HTML] -> [HTML] -> Row
makeRow = Row Set.empty
instance ToMarkup Row where
toMarkup (Row classNames left right) = tr ! A.class_ (stringValue . L.intercalate " " $ Set.toList classNames) $ (td . mconcat $ toMarkup <$> left) <> (td . mconcat $ toMarkup <$> right)
toMarkup (Row _ left right) = (tr $ (td . mconcat $ toMarkup <$> left) <> (td . mconcat $ toMarkup <$> right))
bimap :: ([HTML] -> [HTML]) -> ([HTML] -> [HTML]) -> Row -> Row
bimap f g (Row className a b) = Row className (f a) (g b)