From 3298f8b2da0bb3abf38fc57f66c1b9732a3ddc8a Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Sun, 11 May 2025 14:24:10 +0200 Subject: Cargo-cult NFData for all sized list types --- src/Data/Array/Mixed/Shape.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/Data/Array/Mixed/Shape.hs') diff --git a/src/Data/Array/Mixed/Shape.hs b/src/Data/Array/Mixed/Shape.hs index 80bd55e..99a137d 100644 --- a/src/Data/Array/Mixed/Shape.hs +++ b/src/Data/Array/Mixed/Shape.hs @@ -452,6 +452,11 @@ infixr 3 :!% instance Show (StaticShX sh) where showsPrec _ (StaticShX l) = listxShow (fromSMayNat shows (shows . fromSNat)) l +instance NFData (StaticShX sh) where + rnf (StaticShX ZX) = () + rnf (StaticShX (SUnknown () ::% l)) = rnf (StaticShX l) + rnf (StaticShX (SKnown SNat ::% l)) = rnf (StaticShX l) + instance TestEquality StaticShX where testEquality (StaticShX l1) (StaticShX l2) = listxEqType l1 l2 -- cgit v1.2.3-70-g09d2