github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

codeTd takes a “has changes” flag again.

Browse Source 
We always pass `False` currently.
This commit is contained in:
Rob Rix 2015-12-22 15:29:16 -05:00
parent 20817152c2
commit cf82488820
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Split.hs
View File

@ -102,14 +102,14 @@ numberTd :: String -> Html
numberTd "" = td mempty ! A.class_ (stringValue "blob-num blob-num-empty empty-cell")
numberTd s = td (string s) ! A.class_ (stringValue "blob-num")
codeTd :: Maybe Html -> Html
codeTd Nothing = td mempty ! A.class_ (stringValue "blob-code blob-code-empty empty-cell")
-- codeTd True (Just el) = td el ! A.class_ (stringValue "blob-code blob-code-replacement")
codeTd (Just el) = td el ! A.class_ (stringValue "blob-code")
codeTd :: Bool -> Maybe Html -> Html
codeTd _ Nothing = td mempty ! A.class_ (stringValue "blob-code blob-code-empty empty-cell")
codeTd True (Just el) = td el ! A.class_ (stringValue "blob-code blob-code-replacement")
codeTd False (Just el) = td el ! A.class_ (stringValue "blob-code")
instance ToMarkup a => ToMarkup (Line a) where
toMarkup EmptyLine = codeTd Nothing
toMarkup (Line contents) = codeTd . Just . mconcat $ toMarkup <$> contents
toMarkup EmptyLine = codeTd False Nothing
toMarkup (Line contents) = codeTd False . Just . mconcat $ toMarkup <$> contents
data Line a =
Line [a]