1
1
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00

Add Type.Slice constructor

This commit is contained in:
Rick Winfrey 2017-09-19 15:33:30 -07:00
parent 48daa20312
commit f145782dfe
2 changed files with 7 additions and 0 deletions

View File

@ -42,3 +42,9 @@ newtype SendChannel a = SendChannel { sendChannelElementType :: a }
instance Eq1 SendChannel where liftEq = genericLiftEq
instance Show1 SendChannel where liftShowsPrec = genericLiftShowsPrec
newtype Slice a = Slice { sliceElementType :: a }
deriving (Diffable, Eq, Foldable, Functor, GAlign, Generic1, Show, Traversable)
instance Eq1 Slice where liftEq = genericLiftEq
instance Show1 Slice where liftShowsPrec = genericLiftShowsPrec

View File

@ -49,6 +49,7 @@ type Syntax =
, Type.BiDirectionalChannel
, Type.ReceiveChannel
, Type.SendChannel
, Type.Slice
, []
]