github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 14:11:33 +03:00
Code Issues Projects Releases Wiki Activity

Remove adjoin2.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 10:04:51 -05:00
parent 446383565c
commit 4b487669a9
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Split.hs
View File

@ -236,9 +236,6 @@ rowFromMaybeRows a b = Row (maybe EmptyLine (Line False . (:[])) a) (maybe Empty
maybeLast :: [a] -> Maybe a maybeLast :: [a] -> Maybe a
maybeLast list = listToMaybe $ reverse list maybeLast list = listToMaybe $ reverse list
adjoin2 :: [Row HTML] -> Row HTML -> [Row HTML]
adjoin2 = adjoin2By openElement
adjoin2By :: (a -> Maybe a) -> [Row a] -> Row a -> [Row a] adjoin2By :: (a -> Maybe a) -> [Row a] -> Row a -> [Row a]
adjoin2By _ [] row = [row] adjoin2By _ [] row = [row]