diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-02-18 10:38:30 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-02-18 10:38:30 +0100 |
| commit | d5402b39f31f4cf56a8f583f1d6ceaf7a8aa5acf (patch) | |
| tree | 4cdf136ba3a79bb01b04300d0efc8e264ed0b487 /src/Data/Array/Mixed | |
| parent | 53e1886fc41f0691dff03f6ff0a88e58f042fa30 (diff) | |
All arrays are Eq and Ord (they compare shape first, then values)
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.hs | 5 |
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) |