aboutsummaryrefslogtreecommitdiff
path: root/src/Data/Array/Mixed
diff options
context:
space:
mode:
authorTom Smeding <tom@tomsmeding.com>2025-02-18 10:38:30 +0100
committerTom Smeding <tom@tomsmeding.com>2025-02-18 10:38:30 +0100
commitd5402b39f31f4cf56a8f583f1d6ceaf7a8aa5acf (patch)
tree4cdf136ba3a79bb01b04300d0efc8e264ed0b487 /src/Data/Array/Mixed
parent53e1886fc41f0691dff03f6ff0a88e58f042fa30 (diff)
All arrays are Eq and Ord (they compare shape first, then values)HEADmaster
This comparison policy is lifted straight from orthotope (and indeed the instances are all just auto-derived).
Diffstat (limited to 'src/Data/Array/Mixed')
-rw-r--r--src/Data/Array/Mixed/XArray.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Data/Array/Mixed/XArray.hs b/src/Data/Array/Mixed/XArray.hs
index b564e14..71bdc1f 100644
--- a/src/Data/Array/Mixed/XArray.hs
+++ b/src/Data/Array/Mixed/XArray.hs
@@ -38,10 +38,7 @@ import Data.Array.Mixed.Types
type XArray :: [Maybe Nat] -> Type -> Type
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 sh a)
+ deriving (Show, Eq, Ord, Generic)
instance NFData (XArray sh a)