Support Int16 and Int8

1 files changed, 10 insertions, 0 deletions

diff --git a/src/Data/Array/Nested/Mixed.hs b/src/Data/Array/Nested/Mixed.hs
index 144230e..0cdcc42 100644
--- a/src/Data/Array/Nested/Mixed.hs
+++ b/src/Data/Array/Nested/Mixed.hs
@@ -118,6 +118,8 @@ instance PrimElt Bool
 instance PrimElt Int
 instance PrimElt Int64
 instance PrimElt Int32
+instance PrimElt Int16
+instance PrimElt Int8
 instance PrimElt CInt
 instance PrimElt Float
 instance PrimElt Double
@@ -154,6 +156,8 @@ newtype instance Mixed sh Bool = M_Bool (Mixed sh (Primitive Bool)) deriving (Eq
 newtype instance Mixed sh Int = M_Int (Mixed sh (Primitive Int)) deriving (Eq, Ord, Generic ANDSHOW)
 newtype instance Mixed sh Int64 = M_Int64 (Mixed sh (Primitive Int64)) deriving (Eq, Ord, Generic ANDSHOW)
 newtype instance Mixed sh Int32 = M_Int32 (Mixed sh (Primitive Int32)) deriving (Eq, Ord, Generic ANDSHOW)
+newtype instance Mixed sh Int16 = M_Int16 (Mixed sh (Primitive Int16)) deriving (Eq, Ord, Generic ANDSHOW)
+newtype instance Mixed sh Int8 = M_Int8 (Mixed sh (Primitive Int8)) deriving (Eq, Ord, Generic ANDSHOW)
 newtype instance Mixed sh CInt = M_CInt (Mixed sh (Primitive CInt)) deriving (Eq, Ord, Generic ANDSHOW)
 newtype instance Mixed sh Float = M_Float (Mixed sh (Primitive Float)) deriving (Eq, Ord, Generic ANDSHOW)
 newtype instance Mixed sh Double = M_Double (Mixed sh (Primitive Double)) deriving (Eq, Ord, Generic ANDSHOW)
@@ -190,6 +194,8 @@ newtype instance MixedVecs s sh Bool = MV_Bool (VS.MVector s Bool)
 newtype instance MixedVecs s sh Int = MV_Int (VS.MVector s Int)
 newtype instance MixedVecs s sh Int64 = MV_Int64 (VS.MVector s Int64)
 newtype instance MixedVecs s sh Int32 = MV_Int32 (VS.MVector s Int32)
+newtype instance MixedVecs s sh Int16 = MV_Int16 (VS.MVector s Int16)
+newtype instance MixedVecs s sh Int8 = MV_Int8 (VS.MVector s Int8)
 newtype instance MixedVecs s sh CInt = MV_CInt (VS.MVector s CInt)
 newtype instance MixedVecs s sh Double = MV_Double (VS.MVector s Double)
 newtype instance MixedVecs s sh Float = MV_Float (VS.MVector s Float)
@@ -476,6 +482,8 @@ deriving via Primitive Bool instance Elt Bool
 deriving via Primitive Int instance Elt Int
 deriving via Primitive Int64 instance Elt Int64
 deriving via Primitive Int32 instance Elt Int32
+deriving via Primitive Int16 instance Elt Int16
+deriving via Primitive Int8 instance Elt Int8
 deriving via Primitive CInt instance Elt CInt
 deriving via Primitive Double instance Elt Double
 deriving via Primitive Float instance Elt Float
@@ -491,6 +499,8 @@ deriving via Primitive Bool instance KnownElt Bool
 deriving via Primitive Int instance KnownElt Int
 deriving via Primitive Int64 instance KnownElt Int64
 deriving via Primitive Int32 instance KnownElt Int32
+deriving via Primitive Int16 instance KnownElt Int16
+deriving via Primitive Int8 instance KnownElt Int8
 deriving via Primitive CInt instance KnownElt CInt
 deriving via Primitive Double instance KnownElt Double
 deriving via Primitive Float instance KnownElt Float