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

Define a GEq1 instance for :.: with GEq1 fields.

Browse Source
This commit is contained in:
Rob Rix 2017-02-21 16:20:43 -05:00
parent 98f733cf46
commit 636e096aab
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Functor/Classes/Eq/Generic.hs
View File

@ -43,3 +43,6 @@ instance (GEq1 f, GEq1 g) => GEq1 (f :+: g) where
instance (GEq1 f, GEq1 g) => GEq1 (f :*: g) where instance (GEq1 f, GEq1 g) => GEq1 (f :*: g) where
gliftEq f (a1 :*: b1) (a2 :*: b2) = gliftEq f a1 a2 && gliftEq f b1 b2 gliftEq f (a1 :*: b1) (a2 :*: b2) = gliftEq f a1 a2 && gliftEq f b1 b2
instance (GEq1 f, GEq1 g) => GEq1 (f :.: g) where
gliftEq f (Comp1 a) (Comp1 b) = gliftEq (gliftEq f) a b