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

Add a diff class to the table.

Browse Source
This commit is contained in:
Rob Rix 2015-12-07 12:12:52 -05:00
parent 8885f039c4
commit 6af10f07ed
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

@ -31,6 +31,9 @@ showClassName _ = ""
tag :: String -> String -> String
tag name contents = "<" ++ name ++ ">" ++ contents ++ "</" ++ name ++ ">"
table :: String -> String
table contents = "<table class='diff'>" ++ contents ++ "</table>"
li :: HTML -> String
li (Text string) = string
li html = tag "li" $ show html
@ -51,7 +54,7 @@ split diff before after = return . pack
. tag "html"
. (tag "head" "<link rel='stylesheet' href='style.css'>" ++)
. tag "body"
. tag "table"
. table
. concat $ show <$> (fst $ diffToRows diff (0, 0) before after)
data Row = Row [HTML] [HTML]