diff options
| author | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-05-13 17:30:44 +0200 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-05-13 17:30:44 +0200 |
| commit | 0c993d875a7cb9bace8aea1ef6def200de6b7d51 (patch) | |
| tree | 75e9a8c925a5bb4523d95f7f7e4a9794446b42a1 /src/Data/Array/Nested/Internal/Ranked.hs | |
| parent | ca78d92aa55e9ba8ad179ef42515e4e7b2b8155a (diff) | |
Fix some of the warnings GHC 9.12.2 now produces
Diffstat (limited to 'src/Data/Array/Nested/Internal/Ranked.hs')
| -rw-r--r-- | src/Data/Array/Nested/Internal/Ranked.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Array/Nested/Internal/Ranked.hs b/src/Data/Array/Nested/Internal/Ranked.hs index 1d076e8..3bd4581 100644 --- a/src/Data/Array/Nested/Internal/Ranked.hs +++ b/src/Data/Array/Nested/Internal/Ranked.hs @@ -493,7 +493,7 @@ rreshape sh' rarr@(Ranked arr) rflatten :: Elt a => Ranked n a -> Ranked 1 a rflatten (Ranked arr) = mtoRanked (mflatten arr) -riota :: (Enum a, PrimElt a, Elt a) => Int -> Ranked 1 a +riota :: (Enum a, PrimElt a) => Int -> Ranked 1 a riota n = TN.withSomeSNat (fromIntegral n) $ mtoRanked . miota -- | Throws if the array is empty. |