github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00
Code Issues Projects Releases Wiki Activity

Define an Ord instance for Label.

Browse Source
This commit is contained in:
Rob Rix 2018-05-16 16:17:57 -04:00
parent 067b354cb3
commit f38d2520e5
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/Diffing/Algorithm/RWS.hs
View File

@ -169,4 +169,6 @@ instance Hashable1 syntax => Hashable (Label syntax) where hashWithSalt salt (La
instance Eq1 syntax => Eq (Label syntax) where Label a == Label b = liftEq (const (const True)) a b
instance Ord1 syntax => Ord (Label syntax) where Label a `compare` Label b = liftCompare (const (const EQ)) a b
instance Show1 syntax => Show (Label syntax) where showsPrec d (Label syntax) = liftShowsPrec (const (const id)) (const id) d syntax