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

Implement the Show instance for Row manually.

Browse Source
This commit is contained in:
Rob Rix 2015-12-07 11:49:35 -05:00
parent 3a0479f3fe
commit 78d077b2fd
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Split.hs
View File

@ -50,7 +50,10 @@ split :: Diff a Info -> String -> String -> IO ByteString
split diff before after = return . pack . show $ diffToRows diff (0, 0) before after split diff before after = return . pack . show $ diffToRows diff (0, 0) before after
data Row = Row [HTML] [HTML] data Row = Row [HTML] [HTML]
deriving (Eq, Show) deriving Eq
instance Show Row where
show (Row left right) = tag "tr" (tag "td" $ show <$> left) (tag "td" $ show <$> right)
bimap :: ([HTML] -> [HTML]) -> ([HTML] -> [HTML]) -> Row -> Row bimap :: ([HTML] -> [HTML]) -> ([HTML] -> [HTML]) -> Row -> Row
bimap f g (Row a b) = Row (f a) (g b) bimap f g (Row a b) = Row (f a) (g b)