github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Info is Equatable.

Browse Source
This commit is contained in:
Rob Rix 2015-11-18 11:19:16 -08:00
parent da5807180a
commit 09d10875c3
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/Diff.hs
View File

@ -11,6 +11,7 @@ import Patch
data Range = Range { start :: Int, end :: Int }
data Info = Info -- Range [String]
deriving Eq
type Term a annotation = Cofree (Syntax a) annotation
type Diff a = Free (Syntax a) (Patch (Term a Info))