github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00
Code Issues Projects Releases Wiki Activity

Define a Bifoldable instance for DiffF.

Browse Source
This commit is contained in:
Rob Rix 2017-09-09 13:35:59 +01:00
parent 2094dd059b
commit e42152dca8
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Diff.hs
View File

@ -1,6 +1,7 @@
{-# LANGUAGE DataKinds, TypeFamilies, TypeOperators #-} {-# LANGUAGE DataKinds, TypeFamilies, TypeOperators #-}
module Diff where module Diff where
import Data.Bifoldable
import Data.Bifunctor import Data.Bifunctor
import Data.Functor.Both as Both import Data.Functor.Both as Both
import Data.Functor.Classes import Data.Functor.Classes
@ -131,3 +132,8 @@ instance (Show1 f, Show a) => Show1 (DiffF f a) where
instance (Show1 f, Show a, Show b) => Show (DiffF f a b) where instance (Show1 f, Show a, Show b) => Show (DiffF f a b) where
showsPrec = showsPrec1 showsPrec = showsPrec1
instance Foldable f => Bifoldable (DiffF f) where
bifoldMap f g (Copy as r) = foldMap f as `mappend` foldMap g r
bifoldMap f _ (Patch p) = foldMap (foldMap f) p