github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-06 06:46:07 +03:00
Code Issues Projects Releases Wiki Activity

Inline the cell class.

Browse Source
This commit is contained in:
Rob Rix 2015-12-22 18:14:36 -05:00
parent fbda7e11c1
commit 30c281c185
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/Line.hs
View File

@ -42,8 +42,7 @@ instance ToMarkup a => ToMarkup (Bool, Int, Line a) where
toMarkup (hasChanges, num, line) = case line of
EmptyLine -> td mempty ! A.class_ (stringValue "blob-num blob-num-empty empty-cell") <> td mempty ! A.class_ (stringValue "blob-code blob-code-empty empty-cell") <> string "\n"
_ -> cell "num" (string $ show num) <> cell "code" (toMarkup line) <> string "\n"
where cell kind = td ! A.class_ (toClass kind)
toClass kind = stringValue $ "blob-" ++ kind ++ if hasChanges then " blob-" ++ kind ++ "-replacement" else ""
where cell kind = td ! A.class_ (stringValue $ "blob-" ++ kind ++ if hasChanges then " blob-" ++ kind ++ "-replacement" else "")
codeTd :: Bool -> Maybe Html -> Html
codeTd _ Nothing = td mempty ! A.class_ (stringValue "blob-code blob-code-empty empty-cell")