io-classes:mtl: newArray for MArray ContTSTM instance

It is needed since `array-0.5.7` used by `ghc-9.8.4`. In other `MArray` instances we provide it, so let's do the same for this instance.
input-output-hk · Jan 8, 2025 · b59fda2 · b59fda2
1 parent 638adf0
commit b59fda2
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/io-classes/mtl/Control/Monad/Class/MonadSTM/Trans.hs b/io-classes/mtl/Control/Monad/Class/MonadSTM/Trans.hs
@@ -54,9 +54,7 @@ instance ( MonadSTM m, MArray e a (STM m) ) => MArray e a (ContTSTM r m) where
     getNumElements    = ContTSTM . getNumElements
     unsafeRead arr    = ContTSTM . unsafeRead arr
     unsafeWrite arr i = ContTSTM . unsafeWrite arr i
-#if __GLASGOW_HASKELL__ >= 910
     newArray idxs     = ContTSTM . newArray idxs
-#endif
 
 
 -- note: this (and the following) instance requires 'UndecidableInstances'