1 files changed, 8 insertions, 8 deletions
diff --git a/src/Data/Array/Nested/Internal/Mixed.hs b/src/Data/Array/Nested/Internal/Mixed.hs
index 09fb82b..1776687 100644
--- a/src/Data/Array/Nested/Internal/Mixed.hs
+++ b/src/Data/Array/Nested/Internal/Mixed.hs
@@ -128,7 +128,7 @@ data instance Mixed sh (Primitive a) = M_Primitive !(IShX sh) !(XArray sh a)
   deriving (Show, Eq, Generic)
 
 -- | Only on scalars, because lexicographical ordering is strange on multi-dimensional arrays.
-deriving instance (Ord a, Storable a) => Ord (Mixed '[] (Primitive a))
+deriving instance (Ord a, Storable a) => Ord (Mixed sh (Primitive a))
 
 instance NFData a => NFData (Mixed sh (Primitive a))
 
@@ -143,13 +143,13 @@ newtype instance Mixed sh () = M_Nil (Mixed sh (Primitive ())) deriving (Show, E
 -- etc.
 
 -- [PRIMITIVE ELEMENT TYPES LIST]
-deriving instance Ord (Mixed '[] Int) ; instance NFData (Mixed sh Int)
-deriving instance Ord (Mixed '[] Int64) ; instance NFData (Mixed sh Int64)
-deriving instance Ord (Mixed '[] Int32) ; instance NFData (Mixed sh Int32)
-deriving instance Ord (Mixed '[] CInt) ; instance NFData (Mixed sh CInt)
-deriving instance Ord (Mixed '[] Float) ; instance NFData (Mixed sh Float)
-deriving instance Ord (Mixed '[] Double) ; instance NFData (Mixed sh Double)
-deriving instance Ord (Mixed '[] ()) ; instance NFData (Mixed sh ())
+deriving instance Ord (Mixed sh Int) ; instance NFData (Mixed sh Int)
+deriving instance Ord (Mixed sh Int64) ; instance NFData (Mixed sh Int64)
+deriving instance Ord (Mixed sh Int32) ; instance NFData (Mixed sh Int32)
+deriving instance Ord (Mixed sh CInt) ; instance NFData (Mixed sh CInt)
+deriving instance Ord (Mixed sh Float) ; instance NFData (Mixed sh Float)
+deriving instance Ord (Mixed sh Double) ; instance NFData (Mixed sh Double)
+deriving instance Ord (Mixed sh ()) ; instance NFData (Mixed sh ())
 
 data instance Mixed sh (a, b) = M_Tup2 !(Mixed sh a) !(Mixed sh b) deriving (Generic)
 deriving instance (Show (Mixed sh a), Show (Mixed sh b)) => Show (Mixed sh (a, b))