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

Define openTerm & openDiff in terms of an openRange function.

Browse Source
This commit is contained in:
Rob Rix 2015-12-22 09:58:07 -05:00
parent 37dcb3adea
commit fbe3b8dbeb
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Split.hs
View File

@ -295,15 +295,16 @@ openElement (Dl _ elements) = openElement =<< maybeLast elements
openElement (Div _ elements) = openElement =<< maybeLast elements
openElement h = Just h
openTerm :: String -> Term a Info -> Maybe (Term a Info)
openTerm source term@(Info range _ :< _) = case (source !!) <$> maybeLastIndex range of
openRange :: String -> Range -> Maybe Range
openRange source range = case (source !!) <$> maybeLastIndex range of
Just '\n' -> Nothing
_ -> Just term
_ -> Just range
openTerm :: String -> Term a Info -> Maybe (Term a Info)
openTerm source term@(Info range _ :< _) = const term <$> openRange source range
openDiff :: String -> SplitDiff a Info -> Maybe (SplitDiff a Info)
openDiff source diff@(Free (Annotated (Info range _) _)) = case (source !!) <$> maybeLastIndex range of
Just '\n' -> Nothing
_ -> Just diff
openDiff source diff@(Free (Annotated (Info range _) _)) = const diff <$> openRange source range
openDiff source diff@(Pure term) = const diff <$> openTerm source term
openLineBy :: (a -> Maybe a) -> [Line a] -> Maybe (Line a)