1
1
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +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:
Rob Rix 2016-03-11 11:14:24 -05:00
parent a1ed5da1b5
commit 4e9472afdb

View File

@ -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