Strongweak.WeakenN: +Ord, Eq

raehik · Oct 17, 2024 · fd746ff · fd746ff
1 parent 71dad8b
commit fd746ff
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Strongweak/WeakenN.hs b/src/Strongweak/WeakenN.hs
@@ -28,6 +28,7 @@ And so on. (This type is only much use from @n = 2@ onwards.)
 -}
 newtype WeakenN (n :: Natural) a = WeakenN { unWeakenN :: a }
     deriving stock Show
+    deriving (Ord, Eq) via a
 
 instance WeakenWeakenN n a => Weaken (WeakenN n a) where
     type Weakened (WeakenN n a) = WeakenedN n a