From 36953a12903e5a65dd23127bd76bcdaac6a116e1 Mon Sep 17 00:00:00 2001 From: Harendra Kumar Date: Sat, 27 Aug 2022 00:16:43 +0530 Subject: [PATCH] Fix TypeOperator and strictness warnings for GHC 9.4 --- core/src/Streamly/Internal/Data/Unboxed.hs | 2 +- core/streamly-core.cabal | 1 + streamly.cabal | 1 + 3 files changed, 3 insertions(+), 1 deletion(-) diff --git a/core/src/Streamly/Internal/Data/Unboxed.hs b/core/src/Streamly/Internal/Data/Unboxed.hs index 2ee787354..91624dbdc 100644 --- a/core/src/Streamly/Internal/Data/Unboxed.hs +++ b/core/src/Streamly/Internal/Data/Unboxed.hs @@ -47,7 +47,7 @@ import GHC.Exts -------------------------------------------------------------------------------- -- XXX can use UnliftedNewtypes -data MutableByteArray a = MutableByteArray !(MutableByteArray# RealWorld) +data MutableByteArray a = MutableByteArray (MutableByteArray# RealWorld) {-# INLINE getMutableByteArray# #-} getMutableByteArray# :: MutableByteArray a -> MutableByteArray# RealWorld diff --git a/core/streamly-core.cabal b/core/streamly-core.cabal index 4c90fbe52..20952bd70 100644 --- a/core/streamly-core.cabal +++ b/core/streamly-core.cabal @@ -167,6 +167,7 @@ common default-extensions TupleSections TypeApplications TypeFamilies + TypeOperators ViewPatterns -- MonoLocalBinds, enabled by TypeFamilies, causes performance diff --git a/streamly.cabal b/streamly.cabal index c5e3389f6..db124b364 100644 --- a/streamly.cabal +++ b/streamly.cabal @@ -273,6 +273,7 @@ common default-extensions TupleSections TypeApplications TypeFamilies + TypeOperators ViewPatterns -- MonoLocalBinds, enabled by TypeFamilies, causes performance