mirror of
https://github.com/github/semantic.git
synced 2024-12-01 09:15:01 +03:00
Remove the Functor instances from the wrapper types.
We don’t use them and don’t need to be slowed by them.
This commit is contained in:
parent
a1ed5da1b5
commit
4e9472afdb
@ -35,7 +35,7 @@ instance Arbitrary a => Arbitrary (Adjoined a) where
|
||||
|
||||
-- | A wrapper which never coalesces values.
|
||||
newtype Uncoalesced a = Uncoalesced { runUncoalesced :: a }
|
||||
deriving (Eq, Functor, Show)
|
||||
deriving (Eq, Show)
|
||||
|
||||
instance Arbitrary a => Arbitrary (Uncoalesced a) where
|
||||
arbitrary = Uncoalesced <$> arbitrary
|
||||
@ -46,7 +46,7 @@ instance Coalescent (Uncoalesced a) where
|
||||
|
||||
-- | A wrapper which always coalesces values.
|
||||
newtype Coalesced a = Coalesced { runCoalesced :: a }
|
||||
deriving (Eq, Functor, Show)
|
||||
deriving (Eq, Show)
|
||||
|
||||
instance Arbitrary a => Arbitrary (Coalesced a) where
|
||||
arbitrary = Coalesced <$> arbitrary
|
||||
@ -57,7 +57,7 @@ instance Monoid a => Coalescent (Coalesced a) where
|
||||
|
||||
-- | A wrapper which only coalesces some values.
|
||||
newtype Semicoalesced a = Semicoalesced { runSemicoalesced :: Maybe a }
|
||||
deriving (Eq, Functor, Show)
|
||||
deriving (Eq, Show)
|
||||
|
||||
instance Arbitrary a => Arbitrary (Semicoalesced a) where
|
||||
arbitrary = Semicoalesced <$> arbitrary
|
||||
|
Loading…
Reference in New Issue
Block a user