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

Use runBothWith to simplify packing and unpacking.

Browse Source
This commit is contained in:
Rob Rix 2016-03-02 18:15:27 -05:00
parent 1dee480afd
commit 1f783ea59a
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

@ -52,7 +52,7 @@ splitPatchByLines patch previous sources = case patch of
Replace leftTerm rightTerm -> (zipWithDefaults makeRow (pure mempty) $ fmap (fmap (Pure . SplitReplace)) <$> lines, ranges) Replace leftTerm rightTerm -> (zipWithDefaults makeRow (pure mempty) $ fmap (fmap (Pure . SplitReplace)) <$> lines, ranges)
where (lines, ranges) = unpackLinesAndRanges $ splitTermByLines <$> both leftTerm rightTerm <*> sources where (lines, ranges) = unpackLinesAndRanges $ splitTermByLines <$> both leftTerm rightTerm <*> sources
unpackLinesAndRanges :: Both ([Line (Term leaf Info)], Range) -> (Both [Line (Term leaf Info)], Both Range) unpackLinesAndRanges :: Both ([Line (Term leaf Info)], Range) -> (Both [Line (Term leaf Info)], Both Range)
unpackLinesAndRanges = uncurry (uncurry bimap) . first (bimap both both) . runBoth unpackLinesAndRanges = runBothWith (uncurry bimap . bimap both both)
-- | Takes a term and a source and returns a list of lines and their range within source. -- | Takes a term and a source and returns a list of lines and their range within source.
splitTermByLines :: Term leaf Info -> Source Char -> ([Line (Term leaf Info)], Range) splitTermByLines :: Term leaf Info -> Source Char -> ([Line (Term leaf Info)], Range)