diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-12-18 22:12:06 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-12-18 22:12:26 +0100 |
| commit | 637ca0e7dd7db16233731b40ccbc7f4cb5c63a40 (patch) | |
| tree | 9b4aa6af2697383ee6cbdc80ab1a43281cfc4d82 /src/Data/Array/Mixed/XArray.hs | |
| parent | 080f42a232b9e1124741d98427ce96b2c3ab1cf5 (diff) | |
Uniformise NFData instance (by putting rnf in Elt)
This now depends on:
https://github.com/augustss/orthotope/pull/14
My sincere apologies.
Diffstat (limited to 'src/Data/Array/Mixed/XArray.hs')
| -rw-r--r-- | src/Data/Array/Mixed/XArray.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |