github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-02 20:41:38 +03:00
Code Issues Projects Releases Wiki Activity

🔥 some redundant instances.

Browse Source
This commit is contained in:
Rob Rix 2018-05-11 09:15:40 -04:00
parent bc5862adef
commit bb03cd9448
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/Abstract/Address.hs
View File

@ -56,7 +56,7 @@ instance Location (Located location) where
-- This is isomorphic to 'Last' from Data.Monoid, but is more convenient
-- because it has a 'Reducer' instance.
newtype Latest value = Latest (Maybe value)
deriving (Eq, Foldable, Functor, Generic1, Lower, Ord, Show, Traversable)
deriving (Eq, Foldable, Functor, Lower, Ord, Show, Traversable)
unLatest :: Latest value -> Maybe value
unLatest (Latest value) = value
@ -72,7 +72,3 @@ instance Monoid (Latest value) where
instance Reducer value (Latest value) where
unit = Latest . Just
instance Eq1 Latest where liftEq = genericLiftEq
instance Ord1 Latest where liftCompare = genericLiftCompare
instance Show1 Latest where liftShowsPrec = genericLiftShowsPrec