github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-29 02:44:36 +03:00
Code Issues Projects Releases Wiki Activity

Derive a Show instance for SplitPatch.

Browse Source
This commit is contained in:
Rob Rix 2016-02-24 09:26:33 -07:00
parent 0b1edbefb0
commit b3e4c77038
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/Split.hs
View File

@ -90,6 +90,7 @@ split diff (beforeBlob, afterBlob) = renderHtml
-- | A patch to only one side of a diff.
data SplitPatch a = SplitInsert a | SplitDelete a | SplitReplace a
deriving Show
-- | A diff with only one side’s annotations.
type SplitDiff leaf annotation = Free (Annotated leaf annotation) (SplitPatch (Term leaf annotation))