Add Eq constraint for ghc-8.10 in fold benchmarks

composewell · Aug 3, 2024 · a10a505 · a10a505
1 parent d8b9123
commit a10a505
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/benchmark/Streamly/Benchmark/Data/Fold.hs b/benchmark/Streamly/Benchmark/Data/Fold.hs
@@ -220,7 +220,11 @@ demuxToIntMap :: Monad m =>
 demuxToIntMap f g = Stream.fold (FL.demuxToContainer f g)
 
 {-# INLINE demuxToHashMap  #-}
-demuxToHashMap :: (Monad m, Hashable k) =>
+demuxToHashMap :: (Monad m, Hashable k
+#if __GLASGOW_HASKELL__ == 810
+    , Eq k
+#endif
+    ) =>
     (a -> k) -> (a -> m (Fold m a b)) -> Stream m a -> m (HashMap k b)
 demuxToHashMap f g = Stream.fold (FL.demuxToContainer f g)
 
@@ -230,7 +234,11 @@ demuxToMapIO :: (MonadIO m, Ord k) =>
 demuxToMapIO f g = Stream.fold (FL.demuxToContainerIO f g)
 
 {-# INLINE demuxToHashMapIO  #-}
-demuxToHashMapIO :: (MonadIO m, Hashable k) =>
+demuxToHashMapIO :: (MonadIO m, Hashable k
+#if __GLASGOW_HASKELL__ == 810
+    , Eq k
+#endif
+    ) =>
     (a -> k) -> (a -> m (Fold m a b)) -> Stream m a -> m (HashMap k b)
 demuxToHashMapIO f g = Stream.fold (FL.demuxToContainerIO f g)