1
1
mirror of https://github.com/github/semantic.git synced 2024-12-21 22:01:46 +03:00

Align some instances.

This commit is contained in:
Rob Rix 2018-05-10 19:42:19 -04:00
parent b164fcff30
commit 0b81b28213

View File

@ -35,6 +35,6 @@ insert name alias address = Exports . Map.insert name (alias, address) . unExpor
aliases :: Exports location value -> [(Name, Name)]
aliases = Map.toList . fmap fst . unExports
instance Eq location => Eq1 (Exports location) where liftEq = genericLiftEq
instance Ord location => Ord1 (Exports location) where liftCompare = genericLiftCompare
instance Eq location => Eq1 (Exports location) where liftEq = genericLiftEq
instance Ord location => Ord1 (Exports location) where liftCompare = genericLiftCompare
instance Show location => Show1 (Exports location) where liftShowsPrec = genericLiftShowsPrec