diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-05-20 16:42:25 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-05-20 16:52:20 +0200 |
| commit | 16e52d87e9955628a016946c10515c39ce4ef1d0 (patch) | |
| tree | f85b1440467a074e552505a854722a72c8be0baa /src/Data/Array/Mixed.hs | |
| parent | 6d624d24871ee30e36c73c890c8f4a7cdae54c1c (diff) | |
constant -> replicate
Diffstat (limited to 'src/Data/Array/Mixed.hs')
| -rw-r--r-- | src/Data/Array/Mixed.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/Array/Mixed.hs b/src/Data/Array/Mixed.hs index b07f120..33c0dd6 100644 --- a/src/Data/Array/Mixed.hs +++ b/src/Data/Array/Mixed.hs @@ -466,8 +466,8 @@ cast ssh1 sh2 ssh' (XArray arr) unScalar :: Storable a => XArray '[] a -> a unScalar (XArray a) = S.unScalar a -constant :: forall sh a. Storable a => IShX sh -> a -> XArray sh a -constant sh x +replicate :: forall sh a. Storable a => IShX sh -> a -> XArray sh a +replicate sh x | Dict <- lemKnownNatRank sh = XArray (S.constant (shapeLshape sh) x) |