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

Derive the Eq, Ord, & Show instances for Ann.

Browse Source
This commit is contained in:
Rob Rix 2019-07-29 11:29:47 -04:00
parent 5ec40693c3
commit 3119c222cb
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
semantic-core/src/Data/Core.hs
View File

@ -214,15 +214,10 @@ infix 3 .=
data Ann f a
= Ann Loc (f a)
deriving (Foldable, Functor, Generic1, Traversable)
deriving (Eq, Foldable, Functor, Generic1, Ord, Show, Traversable)
instance HFunctor Ann
deriving instance (Eq a, forall a . Eq a => Eq (f a), Monad f) => Eq (Ann f a)
deriving instance (Ord a, forall a . Eq a => Eq (f a)
, forall a . Ord a => Ord (f a), Monad f) => Ord (Ann f a)
deriving instance (Show a, forall a . Show a => Show (f a)) => Show (Ann f a)
instance RightModule Ann where
Ann l b >>=* f = Ann l (b >>= f)