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

Define li, dd, and dt showing with tag.

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

6
src/Split.hs
View File

@ -33,18 +33,18 @@ tag name contents = "<" ++ name ++ ">" ++ contents ++ "</" ++ name ++ ">"
li :: HTML -> String
li (Text string) = string
li html = "<li>" ++ show html ++ "</li>"
li html = tag "li" $ show html
dd :: HTML -> String
dd (Text string) = string
dd html = "<dd>" ++ show html ++ "</dd>"
dd html = tag "dd" $ show html
instance Show HTML where
show (Text string) = string
show (Span className string) = "<span" ++ showClassName className ++ ">" ++ string ++ "</span>"
show (Ul className children) = "<ul" ++ showClassName className ++ ">" ++ concat (li <$> children) ++ "</ul>"
show (Dl className children) = "<dl" ++ showClassName className ++ ">" ++ concat (dd <$> children) ++ "</dl>"
show (Dt key) = "<dt>" ++ key ++ "</dt>"
show (Dt key) = tag "dt" key
split :: Diff a Info -> String -> String -> IO ByteString
split diff before after = return . pack . show $ diffToRows diff (0, 0) before after