github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 15:35:14 +03:00
Code Issues Projects Releases Wiki Activity

🔥 isClosedRowBy.

Browse Source
This commit is contained in:
Rob Rix 2016-03-08 22:18:19 -05:00
parent 3cb0cd4ac4
commit 1f6f319842
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/Row.hs
View File

@ -21,9 +21,6 @@ unRight = snd . unRow
isOpenRowBy :: Both (a -> Bool) -> Row a -> Bool
isOpenRowBy f = runBothWith (&&) . (isOpenLineBy <$> f <*>) . unRow
isClosedRowBy :: Both (a -> Bool) -> Row a -> Bool
isClosedRowBy f = not . runBothWith (||) . (isOpenLineBy <$> f <*>) . unRow
coalesceLinesBy :: (a -> Bool) -> Line a -> Line a -> [Line a]
coalesceLinesBy f line nextLine | isOpenLineBy f line = [line <> nextLine]
coalesceLinesBy _ line nextLine = [line, nextLine]