github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 07:25:44 +03:00
Code Issues Projects Releases Wiki Activity

Contrast sums.

Browse Source
This commit is contained in:
Rob Rix 2016-07-11 11:54:16 -04:00
parent 57cfaa3e36
commit fa88b23fdc
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/Term.hs
View File

@ -78,6 +78,7 @@ instance (GAlign f, GAlign g) => GAlign (f :+: g) where
where go a b = case (a, b) of
(L1 a, L1 b) -> L1 (galignWith f a b)
(R1 a, R1 b) -> R1 (galignWith f a b)
(a, b) -> f a b
instance (GAlign f, GAlign g) => GAlign (f :*: g) where
galignWith f (a1 :*: b1) (a2 :*: b2) = galignWith f a1 a2 :*: galignWith f b1 b2