diff options
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 |