github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 17:59:10 +03:00
Code Issues Projects Releases Wiki Activity

Document openRangePair.

Browse Source
This commit is contained in:
Rob Rix 2016-03-03 07:59:03 -05:00
parent f1b8e91723
commit 660cc1ad8b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Alignment.hs
View File

@ -117,6 +117,7 @@ diffRanges (Pure patch) = fmap (characterRange . copoint) <$> unPatch patch
openEither :: MaybeOpen a -> MaybeOpen b -> MaybeOpen (Either a b)
openEither ifLeft ifRight which = either (fmap (const which) . ifLeft) (fmap (const which) . ifRight) which
-- | MaybeOpen test for (Range, a) pairs.
openRangePair :: Source Char -> MaybeOpen (Range, a)
openRangePair source pair = pair <$ openRange source (Prelude.fst pair)