From e0a3bb1c048dd6e80ef12beaf92ec293d262b5be Mon Sep 17 00:00:00 2001
From: Mikolaj Konarski <mikolaj.konarski@funktory.com>
Date: Mon, 15 Dec 2025 21:13:26 +0100
Subject: Add the trivial Eq and Ord instances also for StaticShX

---
 src/Data/Array/Nested/Mixed/Shape.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Data/Array/Nested/Mixed/Shape.hs b/src/Data/Array/Nested/Mixed/Shape.hs
index 1071859..7c79f8b 100644
--- a/src/Data/Array/Nested/Mixed/Shape.hs
+++ b/src/Data/Array/Nested/Mixed/Shape.hs
@@ -650,7 +650,10 @@ shxCast' ssh sh = case shxCast ssh sh of
 -- | The part of a shape that is statically known. (A newtype over 'ListH'.)
 type StaticShX :: [Maybe Nat] -> Type
 newtype StaticShX sh = StaticShX (ListH sh ())
-  deriving (Eq, Ord, NFData)
+  deriving (NFData)
+
+instance Eq (StaticShX sh) where _ == _ = True
+instance Ord (StaticShX sh) where compare _ _ = EQ
 
 pattern ZKX :: forall sh. () => sh ~ '[] => StaticShX sh
 pattern ZKX = StaticShX ZH
-- 
cgit v1.2.3-70-g09d2