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

Generalize Line and unLine over a.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 09:58:02 -05:00
parent f714e83b62
commit 3424df075a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Split.hs
View File

@ -112,11 +112,11 @@ instance ToMarkup a => ToMarkup (Line a) where
toMarkup (Line changed html) = codeTd changed . Just . mconcat $ toMarkup <$> html
data Line a =
Line Bool [HTML]
Line Bool [a]
| EmptyLine
deriving Eq
unLine :: Line a -> [HTML]
unLine :: Line a -> [a]
unLine EmptyLine = []
unLine (Line _ elements) = elements