1
1
mirror of https://github.com/github/semantic.git synced 2024-12-23 14:54:16 +03:00

Add ErrorControl

This commit is contained in:
joshvera 2017-12-20 14:18:11 -05:00
parent 5e0ebfe2b5
commit 98ab9ec17c

View File

@ -79,3 +79,10 @@ newtype CastType a = CastType { _castType :: ByteString }
instance Eq1 CastType where liftEq = genericLiftEq
instance Ord1 CastType where liftCompare = genericLiftCompare
instance Show1 CastType where liftShowsPrec = genericLiftShowsPrec
newtype ErrorControl a = ErrorControl a
deriving (Diffable, Eq, Foldable, Functor, GAlign, Generic1, Mergeable, Ord, Show, Traversable)
instance Eq1 ErrorControl where liftEq = genericLiftEq
instance Ord1 ErrorControl where liftCompare = genericLiftCompare
instance Show1 ErrorControl where liftShowsPrec = genericLiftShowsPrec