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

Align some instances.

Browse Source
This commit is contained in:
Rob Rix 2018-05-10 18:47:56 -04:00
parent 95e90534e3
commit 602728b54d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,8 +10,8 @@ import Prologue
newtype Address location value = Address { unAddress :: location } newtype Address location value = Address { unAddress :: location }
deriving (Eq, Foldable, Functor, Generic1, Ord, Show, Traversable) deriving (Eq, Foldable, Functor, Generic1, Ord, Show, Traversable)
instance Eq location => Eq1 (Address location) where liftEq = genericLiftEq instance Eq location => Eq1 (Address location) where liftEq = genericLiftEq
instance Ord location => Ord1 (Address location) where liftCompare = genericLiftCompare instance Ord location => Ord1 (Address location) where liftCompare = genericLiftCompare
instance Show location => Show1 (Address location) where liftShowsPrec = genericLiftShowsPrec instance Show location => Show1 (Address location) where liftShowsPrec = genericLiftShowsPrec
@ -54,6 +54,6 @@ instance Monoid (Latest value) where
instance Reducer value (Latest value) where instance Reducer value (Latest value) where
unit = Latest . Just unit = Latest . Just
instance Eq1 Latest where liftEq = genericLiftEq instance Eq1 Latest where liftEq = genericLiftEq
instance Ord1 Latest where liftCompare = genericLiftCompare instance Ord1 Latest where liftCompare = genericLiftCompare
instance Show1 Latest where liftShowsPrec = genericLiftShowsPrec instance Show1 Latest where liftShowsPrec = genericLiftShowsPrec