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

Generalize rowFromMaybeRows.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 13:10:11 -05:00
parent cbc1240946
commit b351f1b29d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Split.hs
View File

@ -221,7 +221,7 @@ textElements :: Range -> String -> [HTML]
textElements range source = elementAndBreak Text =<< actualLines s
where s = substring range source
rowFromMaybeRows :: Maybe HTML -> Maybe HTML -> Row HTML
rowFromMaybeRows :: Maybe a -> Maybe a -> Row a
rowFromMaybeRows a b = Row (maybe EmptyLine (Line False . (:[])) a) (maybe EmptyLine (Line False . (:[])) b)
maybeLast :: Foldable f => f a -> Maybe a