diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-04-14 12:28:05 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-04-14 12:28:05 +0200 |
| commit | 3defbdadab5080fc1f44895c06297d58ff3f5a43 (patch) | |
| tree | 2717243947e3f4ae01e0a76ce71d367f61812ee6 /src/Data/Array/Mixed.hs | |
| parent | cde40eeb9560919fa464f14c76edc1aae1dac43b (diff) | |
Make XArray a newtype
Diffstat (limited to 'src/Data/Array/Mixed.hs')
| -rw-r--r-- | src/Data/Array/Mixed.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Array/Mixed.hs b/src/Data/Array/Mixed.hs index 040b8d7..926c6ee 100644 --- a/src/Data/Array/Mixed.hs +++ b/src/Data/Array/Mixed.hs @@ -78,7 +78,7 @@ type family Rank sh where Rank (_ : sh) = S (Rank sh) type XArray :: [Maybe Nat] -> Type -> Type -data XArray sh a = XArray (S.Array (FromINat (Rank sh)) a) +newtype XArray sh a = XArray (S.Array (FromINat (Rank sh)) a) deriving (Show) zeroIdx :: StaticShapeX sh -> IxX sh |