Address warnings across dependency versions or redundant imports

CHANGELOG.md

@@ -5,6 +5,10 @@ All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog][chg] and this project adheres to
 [Haskell's Package Versioning Policy][pvp]
 
+## Unreleased
+
+  - Address or suppress warnings
+
 ## `1.0.0.1` - 2022-09-10
 
   - Support GHC 9.4 by eliminating compiler errors

src/AWS/Lambda/Events/ApiGateway/ProxyRequest.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP               #-}
 {-|
 Module      : AWS.Lambda.Events.ApiGateway.ProxyRequest
 Description : Data types that represent typical lambda responses
@@ -168,10 +169,23 @@ data ProxyRequest a = ProxyRequest
     , body                            :: ByteString
     } deriving (Eq, Generic, Show)
 
-toCIHashMap :: (Eq k, FoldCase k, Hashable k) => HashMap k a -> HashMap (CI k) a
+toCIHashMap ::
+#if !MIN_VERSION_hashable(1,4,0)
+    Eq k =>
+#endif
+    FoldCase k =>
+    Hashable k =>
+    HashMap k a ->
+    HashMap (CI k) a
 toCIHashMap = foldrWithKey (insert . mk) mempty
 
-fromCIHashMap :: (Eq k, Hashable k) => HashMap (CI k) a -> HashMap k a
+fromCIHashMap ::
+#if !MIN_VERSION_hashable(1,4,0)
+    Eq k =>
+#endif
+    Hashable k =>
+    HashMap (CI k) a ->
+    HashMap k a
 fromCIHashMap = foldrWithKey (insert . original) mempty
 
 toByteString :: Bool -> TL.Text -> ByteString

src/AWS/Lambda/Events/ApiGateway/ProxyResponse.hs

@@ -159,7 +159,14 @@ data ProxyResponse = ProxyResponse
     , body              :: ProxyBody
     } deriving (Eq, Generic, Show)
 
-toCIHashMap :: (Eq k, FoldCase k, Hashable k) => HashMap k a -> HashMap (CI k) a
+toCIHashMap ::
+#if !MIN_VERSION_hashable(1,4,0)
+    Eq k =>
+#endif
+    FoldCase k =>
+    Hashable k =>
+    HashMap k a ->
+    HashMap (CI k) a
 toCIHashMap = H.foldrWithKey (H.insert . mk) mempty
 
 -- | Smart constructor for creating a ProxyResponse from a status and a body

test/AWS/Lambda/Events/EventBridge/Gen.hs

@@ -5,7 +5,6 @@ module AWS.Lambda.Events.EventBridge.Gen where
 
 import           AWS.Lambda.Events.EventBridge (EventBridgeEvent'(..),
                                                 EventBridgeEvent)
-import           Data.List                     (intersperse)
 import           Data.Text                     (Text)
 import qualified Data.Text                     as T
 import           Data.Time                     (UTCTime)

test/AWS/Lambda/Events/EventBridge/Spec.hs

@@ -16,7 +16,6 @@ import           Data.Time                                                  (UTC
 import           Hedgehog                                                   (forAll, tripping)
 import           Test.Hspec                                                 (Spec, describe, shouldBe, specify)
 import           Test.Hspec.Hedgehog                                        (hedgehog)
-import           Test.Hspec.Runner                                          (hspec)
 import           Text.RawString.QQ                                          (r)
 
 spec :: Spec

test/Spec.hs

@@ -237,6 +237,9 @@ minResponse headers body =
     , responseBody = body
     , responseCookieJar = undefined
     , responseClose' = undefined
+#if MIN_VERSION_http_client(0,7,8)
+    , responseOriginalRequest = undefined
+#endif
     }
 
 minJsonResponse :: [Header] -> Response Value