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

Align.

Browse Source
This commit is contained in:
Rob Rix 2019-10-18 12:12:02 -04:00
parent 8a7d72edbf
commit f870e977ff
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/Edit.hs
View File

@ -48,10 +48,10 @@ instance Bitraversable Edit where
instance Eq2 Edit where
liftEq2 eql eqr = curry $ \case
(Delete a1, Delete a2) -> eql a1 a2
(Insert b1, Insert b2) -> eqr b1 b2
(Delete a1 , Delete a2 ) -> eql a1 a2
(Insert b1, Insert b2) -> eqr b1 b2
(Compare a1 b1, Compare a2 b2) -> eql a1 a2 && eqr b1 b2
_ -> False
_ -> False
instance Ord2 Edit where
liftCompare2 cmpl cmpr = curry $ \case