From 0c993d875a7cb9bace8aea1ef6def200de6b7d51 Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Tue, 13 May 2025 17:30:44 +0200 Subject: Fix some of the warnings GHC 9.12.2 now produces --- ops/Data/Array/Strided/Array.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'ops/Data/Array/Strided/Array.hs') diff --git a/ops/Data/Array/Strided/Array.hs b/ops/Data/Array/Strided/Array.hs index f757cd5..9280fe0 100644 --- a/ops/Data/Array/Strided/Array.hs +++ b/ops/Data/Array/Strided/Array.hs @@ -31,7 +31,7 @@ arrayFromVector sh vec shsize = product sh strides = NE.tail (NE.scanr (*) 1 sh) -arrayFromConstant :: (Storable a, KnownNat n) => [Int] -> a -> Array n a +arrayFromConstant :: Storable a => [Int] -> a -> Array n a arrayFromConstant sh x = Array sh (0 <$ sh) 0 (VS.singleton x) arrayRevDims :: [Bool] -> Array n a -> Array n a -- cgit v1.2.3-70-g09d2