From cf42449abd68cc5c5648a1321df21f3c481e8b87 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Fri, 7 Jun 2024 21:46:05 +0200 Subject: Generalise Ord instances to full lexicographical order --- src/Data/Array/Mixed/XArray.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Data/Array/Mixed') diff --git a/src/Data/Array/Mixed/XArray.hs b/src/Data/Array/Mixed/XArray.hs index cc0a6a5..e93ffca 100644 --- a/src/Data/Array/Mixed/XArray.hs +++ b/src/Data/Array/Mixed/XArray.hs @@ -39,7 +39,7 @@ newtype XArray sh a = XArray (S.Array (Rank 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 (XArray '[] a) +deriving instance (Ord a, Storable a) => Ord (XArray sh a) instance NFData a => NFData (XArray sh a) -- cgit v1.2.3-70-g09d2