1
1
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00

use newtype

This commit is contained in:
Ayman Nadeem 2018-07-23 13:34:31 -04:00
parent d449218ea3
commit 3ba39b9bc7

View File

@ -149,7 +149,7 @@ instance Show1 AnnotatedType where liftShowsPrec = genericLiftShowsPrec
-- TODO: Implement Eval instance for AnnotatedType
instance Evaluatable AnnotatedType
data CatchType a = CatchType { types :: [a] }
newtype CatchType a = CatchType { types :: [a] }
deriving (Declarations1, Diffable, Eq, Foldable, FreeVariables1, Functor, Generic1, Hashable1, Ord, Show, ToJSONFields1, Traversable)
instance Eq1 CatchType where liftEq = genericLiftEq