github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

Stub in a type synonym for aligned diffs.

Browse Source
This commit is contained in:
Rob Rix 2016-03-18 12:02:07 -04:00
parent 00c3a2ef9f
commit e61d8a27ff
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Alignment.hs
View File

@ -109,6 +109,8 @@ type Row a = Both (Line a)
-- | A fixpoint over a functor.
newtype Fix f = Fix { unFix :: f (Fix f) }
type AlignedDiff leaf = Cofree (Aligned (Syntax leaf)) Info
alignPatch :: Patch (Term leaf Info) -> Fix (Aligned (Syntax leaf))
alignPatch (Insert term) = hylo (Fix . AlignThis . pure) unwrap term
alignPatch (Delete term) = hylo (Fix . AlignThat . pure) unwrap term