Fix Array module

benchmark/Streamly/Benchmark/Data/Array/Stream.hs

@@ -53,6 +53,7 @@ import Streamly.Benchmark.Common.Handle
 import Control.Monad.IO.Class (MonadIO)
 
 #ifdef INSPECTION
+import Control.Monad.IO.Class (MonadIO)
 import Streamly.Internal.Data.Unbox (Unbox)
 import Streamly.Internal.Data.Stream (Step(..))
 import Test.Inspection
@@ -94,7 +95,11 @@ toChunksLast inh = do
         Just arr -> Array.getIndex (Array.length arr - 1) arr
 
 #ifdef INSPECTION
+#if __GLASGOW_HASKELL__ >= 906
+inspect $ hasNoTypeClassesExcept 'toChunksLast [''MonadIO]
+#else
 inspect $ hasNoTypeClasses 'toChunksLast
+#endif
 inspect $ 'toChunksLast `hasNoType` ''Step
 #endif
 
@@ -105,7 +110,11 @@ toChunksSumLengths inh =
     in Stream.fold Fold.sum (Stream.map Array.length s)
 
 #ifdef INSPECTION
+#if __GLASGOW_HASKELL__ >= 906
+inspect $ hasNoTypeClassesExcept 'toChunksSumLengths [''MonadIO]
+#else
 inspect $ hasNoTypeClasses 'toChunksSumLengths
+#endif
 inspect $ 'toChunksSumLengths `hasNoType` ''Step
 #endif
 
@@ -117,7 +126,11 @@ toChunksCountBytes inh = do
     Stream.foldl' (\acc arr -> acc + foldlArr' (+) 0 arr) 0 s
 
 #ifdef INSPECTION
+#if __GLASGOW_HASKELL__ >= 906
+inspect $ hasNoTypeClassesExcept 'toChunksCountBytes [''MonadIO]
+#else
 inspect $ hasNoTypeClasses 'toChunksCountBytes
+#endif
 inspect $ 'toChunksCountBytes `hasNoType` ''Step
 #endif
 
@@ -126,7 +139,11 @@ toChunksDecodeUtf8Arrays =
    Stream.drain . Unicode.decodeUtf8Chunks . Handle.readChunks
 
 #ifdef INSPECTION
+#if __GLASGOW_HASKELL__ >= 906
+inspect $ hasNoTypeClassesExcept 'toChunksDecodeUtf8Arrays [''MonadIO]
+#else
 inspect $ hasNoTypeClasses 'toChunksDecodeUtf8Arrays
+#endif
 -- inspect $ 'toChunksDecodeUtf8ArraysLenient `hasNoType` ''Step
 #endif
 
@@ -142,7 +159,11 @@ toChunksSplitOnSuffix =
         . Handle.readChunks
 
 #ifdef INSPECTION
+#if __GLASGOW_HASKELL__ >= 906
+inspect $ hasNoTypeClassesExcept 'toChunksSplitOnSuffix [''MonadIO]
+#else
 inspect $ hasNoTypeClasses 'toChunksSplitOnSuffix
+#endif
 inspect $ 'toChunksSplitOnSuffix `hasNoType` ''Step
 #endif
 
@@ -155,7 +176,11 @@ toChunksSplitOn =
         . Handle.readChunks
 
 #ifdef INSPECTION
+#if __GLASGOW_HASKELL__ >= 906
+inspect $ hasNoTypeClassesExcept 'toChunksSplitOn [''MonadIO]
+#else
 inspect $ hasNoTypeClasses 'toChunksSplitOn
+#endif
 inspect $ 'toChunksSplitOn `hasNoType` ''Step
 #endif
 
@@ -194,7 +219,11 @@ copyChunksSplitInterposeSuffix inh outh =
         $ Handle.readChunks inh
 
 #ifdef INSPECTION
+#if __GLASGOW_HASKELL__ >= 906
+inspect $ hasNoTypeClassesExcept 'copyChunksSplitInterposeSuffix [''Unbox, ''MonadIO]
+#else
 inspect $ hasNoTypeClassesExcept 'copyChunksSplitInterposeSuffix [''Unbox]
+#endif
 inspect $ 'copyChunksSplitInterposeSuffix `hasNoType` ''Step
 #endif
 
@@ -208,7 +237,11 @@ copyChunksSplitInterpose inh outh =
         $ Handle.readChunks inh
 
 #ifdef INSPECTION
+#if __GLASGOW_HASKELL__ >= 906
+inspect $ hasNoTypeClassesExcept 'copyChunksSplitInterpose [''Unbox, ''MonadIO]
+#else
 inspect $ hasNoTypeClassesExcept 'copyChunksSplitInterpose [''Unbox]
+#endif
 inspect $ 'copyChunksSplitInterpose `hasNoType` ''Step
 #endif