From 637ca0e7dd7db16233731b40ccbc7f4cb5c63a40 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Wed, 18 Dec 2024 22:12:06 +0100 Subject: Uniformise NFData instance (by putting rnf in Elt) This now depends on: https://github.com/augustss/orthotope/pull/14 My sincere apologies. --- src/Data/Array/Mixed/XArray.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Data/Array/Mixed/XArray.hs') diff --git a/src/Data/Array/Mixed/XArray.hs b/src/Data/Array/Mixed/XArray.hs index 81b92c5..b564e14 100644 --- a/src/Data/Array/Mixed/XArray.hs +++ b/src/Data/Array/Mixed/XArray.hs @@ -14,7 +14,7 @@ {-# OPTIONS_GHC -fplugin GHC.TypeLits.KnownNat.Solver #-} module Data.Array.Mixed.XArray where -import Control.DeepSeq (NFData(..)) +import Control.DeepSeq (NFData) import Data.Array.Ranked qualified as ORB import Data.Array.RankedS qualified as S import Data.Coerce @@ -43,7 +43,7 @@ newtype XArray sh a = XArray (S.Array (Rank sh) a) -- | Only on scalars, because lexicographical ordering is strange on multi-dimensional arrays. deriving instance (Ord a, Storable a) => Ord (XArray sh a) -instance NFData a => NFData (XArray sh a) +instance NFData (XArray sh a) shape :: forall sh a. StaticShX sh -> XArray sh a -> IShX sh -- cgit v1.2.3-70-g09d2