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

Pointfree.

Browse Source
This commit is contained in:
Rob Rix 2016-03-09 09:23:28 -05:00
parent 129055ea42
commit 2930a96aed
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/Alignment.hs
View File

@ -99,7 +99,7 @@ unionLineRangesFrom start lines = unionRangesFrom start (lines >>= (fmap Prelude
-- | Returns the ranges of a list of Rows with the assistance of an unaligning function.
rowRangesBy :: Functor f => ([f [Range]] -> f [[Range]]) -> [f (Line (a, Range))] -> f (Maybe Range)
rowRangesBy unalign rows = maybeConcat . join <$> unalign (fmap (fmap Prelude.snd . unLine) <$> rows)
rowRangesBy unalign = fmap (maybeConcat . join) . unalign . fmap (fmap (fmap Prelude.snd . unLine))
-- | Openness predicate for (Range, a) pairs.
openRangePair :: Source Char -> (a, Range) -> Bool