Gen 2025 01 15

lib/amazonka-test/amazonka-test.cabal

@@ -62,5 +62,6 @@ library
     , temporary             >=1.2
     , text                  >=1.1
     , time                  >=1.9
+    , time-compat           ^>=1.9.8
     , unordered-containers  >=0.2.5
     , yaml                  >=0.8.7

lib/amazonka-test/src/Test/Amazonka/TH.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE DeriveLift #-}
 {-# LANGUAGE StandaloneDeriving #-}
-{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE TemplateHaskellQuotes #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 
 -- |
@@ -15,7 +15,8 @@ module Test.Amazonka.TH where
 
 import Amazonka.Core.Lens.Internal (view)
 import Amazonka.Data
-import Data.Time (Day (..), DiffTime, UTCTime (..))
+-- Provides other Lift instances, if `time` doesn't.
+import Data.Time.Compat ()
 import Language.Haskell.TH
 import Language.Haskell.TH.Syntax
 
@@ -26,19 +27,3 @@ mkTime x =
     Right t -> [|view _Time t|]
 
 deriving instance Lift (Time a)
-
-deriving instance Lift UTCTime
-
-deriving instance Lift Day
-
--- DiffTime's constructor is not exported, so use a manual instance.
---
--- Note: An entire valid instance must be duplicated inside CPP to
--- otherwise the ormolu formatter will erroneously rewrite it.
-#if MIN_VERSION_template_haskell(2,16,0)
-instance Lift DiffTime where
-  liftTyped x = [||toEnum $$(liftTyped (fromEnum x))||]
-#else
-instance Lift DiffTime where
-  lift x = [|toEnum $(lift (fromEnum x))|]
-#endif

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/ApplyArchiveRule.hs

@@ -115,9 +115,9 @@ instance Prelude.Hashable ApplyArchiveRule where
 
 instance Prelude.NFData ApplyArchiveRule where
   rnf ApplyArchiveRule' {..} =
-    Prelude.rnf clientToken
-      `Prelude.seq` Prelude.rnf analyzerArn
-      `Prelude.seq` Prelude.rnf ruleName
+    Prelude.rnf clientToken `Prelude.seq`
+      Prelude.rnf analyzerArn `Prelude.seq`
+        Prelude.rnf ruleName
 
 instance Data.ToHeaders ApplyArchiveRule where
   toHeaders =

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/CreateAccessPreview.hs

@@ -138,9 +138,9 @@ instance Prelude.Hashable CreateAccessPreview where
 
 instance Prelude.NFData CreateAccessPreview where
   rnf CreateAccessPreview' {..} =
-    Prelude.rnf clientToken
-      `Prelude.seq` Prelude.rnf analyzerArn
-      `Prelude.seq` Prelude.rnf configurations
+    Prelude.rnf clientToken `Prelude.seq`
+      Prelude.rnf analyzerArn `Prelude.seq`
+        Prelude.rnf configurations
 
 instance Data.ToHeaders CreateAccessPreview where
   toHeaders =

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/CreateAnalyzer.hs

@@ -157,11 +157,11 @@ instance Prelude.Hashable CreateAnalyzer where
 
 instance Prelude.NFData CreateAnalyzer where
   rnf CreateAnalyzer' {..} =
-    Prelude.rnf archiveRules
-      `Prelude.seq` Prelude.rnf clientToken
-      `Prelude.seq` Prelude.rnf tags
-      `Prelude.seq` Prelude.rnf analyzerName
-      `Prelude.seq` Prelude.rnf type'
+    Prelude.rnf archiveRules `Prelude.seq`
+      Prelude.rnf clientToken `Prelude.seq`
+        Prelude.rnf tags `Prelude.seq`
+          Prelude.rnf analyzerName `Prelude.seq`
+            Prelude.rnf type'
 
 instance Data.ToHeaders CreateAnalyzer where
   toHeaders =
@@ -234,5 +234,5 @@ createAnalyzerResponse_httpStatus = Lens.lens (\CreateAnalyzerResponse' {httpSta
 
 instance Prelude.NFData CreateAnalyzerResponse where
   rnf CreateAnalyzerResponse' {..} =
-    Prelude.rnf arn
-      `Prelude.seq` Prelude.rnf httpStatus
+    Prelude.rnf arn `Prelude.seq`
+      Prelude.rnf httpStatus

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/CreateArchiveRule.hs

@@ -132,10 +132,10 @@ instance Prelude.Hashable CreateArchiveRule where
 
 instance Prelude.NFData CreateArchiveRule where
   rnf CreateArchiveRule' {..} =
-    Prelude.rnf clientToken
-      `Prelude.seq` Prelude.rnf analyzerName
-      `Prelude.seq` Prelude.rnf ruleName
-      `Prelude.seq` Prelude.rnf filter'
+    Prelude.rnf clientToken `Prelude.seq`
+      Prelude.rnf analyzerName `Prelude.seq`
+        Prelude.rnf ruleName `Prelude.seq`
+          Prelude.rnf filter'
 
 instance Data.ToHeaders CreateArchiveRule where
   toHeaders =

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/DeleteAnalyzer.hs

@@ -104,8 +104,8 @@ instance Prelude.Hashable DeleteAnalyzer where
 
 instance Prelude.NFData DeleteAnalyzer where
   rnf DeleteAnalyzer' {..} =
-    Prelude.rnf clientToken
-      `Prelude.seq` Prelude.rnf analyzerName
+    Prelude.rnf clientToken `Prelude.seq`
+      Prelude.rnf analyzerName
 
 instance Data.ToHeaders DeleteAnalyzer where
   toHeaders =

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/DeleteArchiveRule.hs

@@ -117,9 +117,9 @@ instance Prelude.Hashable DeleteArchiveRule where
 
 instance Prelude.NFData DeleteArchiveRule where
   rnf DeleteArchiveRule' {..} =
-    Prelude.rnf clientToken
-      `Prelude.seq` Prelude.rnf analyzerName
-      `Prelude.seq` Prelude.rnf ruleName
+    Prelude.rnf clientToken `Prelude.seq`
+      Prelude.rnf analyzerName `Prelude.seq`
+        Prelude.rnf ruleName
 
 instance Data.ToHeaders DeleteArchiveRule where
   toHeaders =

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/GetAccessPreview.hs

@@ -118,8 +118,8 @@ instance Prelude.Hashable GetAccessPreview where
 
 instance Prelude.NFData GetAccessPreview where
   rnf GetAccessPreview' {..} =
-    Prelude.rnf accessPreviewId
-      `Prelude.seq` Prelude.rnf analyzerArn
+    Prelude.rnf accessPreviewId `Prelude.seq`
+      Prelude.rnf analyzerArn
 
 instance Data.ToHeaders GetAccessPreview where
   toHeaders =
@@ -186,5 +186,5 @@ getAccessPreviewResponse_accessPreview = Lens.lens (\GetAccessPreviewResponse' {
 
 instance Prelude.NFData GetAccessPreviewResponse where
   rnf GetAccessPreviewResponse' {..} =
-    Prelude.rnf httpStatus
-      `Prelude.seq` Prelude.rnf accessPreview
+    Prelude.rnf httpStatus `Prelude.seq`
+      Prelude.rnf accessPreview

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/GetAnalyzedResource.hs

@@ -118,8 +118,8 @@ instance Prelude.Hashable GetAnalyzedResource where
 
 instance Prelude.NFData GetAnalyzedResource where
   rnf GetAnalyzedResource' {..} =
-    Prelude.rnf analyzerArn
-      `Prelude.seq` Prelude.rnf resourceArn
+    Prelude.rnf analyzerArn `Prelude.seq`
+      Prelude.rnf resourceArn
 
 instance Data.ToHeaders GetAnalyzedResource where
   toHeaders =
@@ -188,5 +188,5 @@ getAnalyzedResourceResponse_httpStatus = Lens.lens (\GetAnalyzedResourceResponse
 
 instance Prelude.NFData GetAnalyzedResourceResponse where
   rnf GetAnalyzedResourceResponse' {..} =
-    Prelude.rnf resource
-      `Prelude.seq` Prelude.rnf httpStatus
+    Prelude.rnf resource `Prelude.seq`
+      Prelude.rnf httpStatus

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/GetAnalyzer.hs

@@ -161,5 +161,5 @@ getAnalyzerResponse_analyzer = Lens.lens (\GetAnalyzerResponse' {analyzer} -> an
 
 instance Prelude.NFData GetAnalyzerResponse where
   rnf GetAnalyzerResponse' {..} =
-    Prelude.rnf httpStatus
-      `Prelude.seq` Prelude.rnf analyzer
+    Prelude.rnf httpStatus `Prelude.seq`
+      Prelude.rnf analyzer

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/GetArchiveRule.hs

@@ -117,8 +117,8 @@ instance Prelude.Hashable GetArchiveRule where
 
 instance Prelude.NFData GetArchiveRule where
   rnf GetArchiveRule' {..} =
-    Prelude.rnf analyzerName
-      `Prelude.seq` Prelude.rnf ruleName
+    Prelude.rnf analyzerName `Prelude.seq`
+      Prelude.rnf ruleName
 
 instance Data.ToHeaders GetArchiveRule where
   toHeaders =
@@ -186,5 +186,5 @@ getArchiveRuleResponse_archiveRule = Lens.lens (\GetArchiveRuleResponse' {archiv
 
 instance Prelude.NFData GetArchiveRuleResponse where
   rnf GetArchiveRuleResponse' {..} =
-    Prelude.rnf httpStatus
-      `Prelude.seq` Prelude.rnf archiveRule
+    Prelude.rnf httpStatus `Prelude.seq`
+      Prelude.rnf archiveRule

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/GetFinding.hs

@@ -113,8 +113,8 @@ instance Prelude.Hashable GetFinding where
 
 instance Prelude.NFData GetFinding where
   rnf GetFinding' {..} =
-    Prelude.rnf analyzerArn
-      `Prelude.seq` Prelude.rnf id
+    Prelude.rnf analyzerArn `Prelude.seq`
+      Prelude.rnf id
 
 instance Data.ToHeaders GetFinding where
   toHeaders =
@@ -177,5 +177,5 @@ getFindingResponse_httpStatus = Lens.lens (\GetFindingResponse' {httpStatus} ->
 
 instance Prelude.NFData GetFindingResponse where
   rnf GetFindingResponse' {..} =
-    Prelude.rnf finding
-      `Prelude.seq` Prelude.rnf httpStatus
+    Prelude.rnf finding `Prelude.seq`
+      Prelude.rnf httpStatus

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/GetGeneratedPolicy.hs

@@ -161,9 +161,9 @@ instance Prelude.Hashable GetGeneratedPolicy where
 
 instance Prelude.NFData GetGeneratedPolicy where
   rnf GetGeneratedPolicy' {..} =
-    Prelude.rnf includeResourcePlaceholders
-      `Prelude.seq` Prelude.rnf includeServiceLevelTemplate
-      `Prelude.seq` Prelude.rnf jobId
+    Prelude.rnf includeResourcePlaceholders `Prelude.seq`
+      Prelude.rnf includeServiceLevelTemplate `Prelude.seq`
+        Prelude.rnf jobId
 
 instance Data.ToHeaders GetGeneratedPolicy where
   toHeaders =
@@ -253,6 +253,6 @@ getGeneratedPolicyResponse_generatedPolicyResult = Lens.lens (\GetGeneratedPolic
 
 instance Prelude.NFData GetGeneratedPolicyResponse where
   rnf GetGeneratedPolicyResponse' {..} =
-    Prelude.rnf httpStatus
-      `Prelude.seq` Prelude.rnf jobDetails
-      `Prelude.seq` Prelude.rnf generatedPolicyResult
+    Prelude.rnf httpStatus `Prelude.seq`
+      Prelude.rnf jobDetails `Prelude.seq`
+        Prelude.rnf generatedPolicyResult

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/ListAccessPreviewFindings.hs

@@ -145,12 +145,12 @@ instance Core.AWSPager ListAccessPreviewFindings where
         ) =
         Prelude.Nothing
     | Prelude.otherwise =
-        Prelude.Just
-          Prelude.$ rq
-          Prelude.& listAccessPreviewFindings_nextToken
-          Lens..~ rs
-          Lens.^? listAccessPreviewFindingsResponse_nextToken
-          Prelude.. Lens._Just
+        Prelude.Just Prelude.$
+          rq
+            Prelude.& listAccessPreviewFindings_nextToken
+              Lens..~ rs
+              Lens.^? listAccessPreviewFindingsResponse_nextToken
+              Prelude.. Lens._Just
 
 instance Core.AWSRequest ListAccessPreviewFindings where
   type
@@ -178,11 +178,11 @@ instance Prelude.Hashable ListAccessPreviewFindings where
 
 instance Prelude.NFData ListAccessPreviewFindings where
   rnf ListAccessPreviewFindings' {..} =
-    Prelude.rnf filter'
-      `Prelude.seq` Prelude.rnf maxResults
-      `Prelude.seq` Prelude.rnf nextToken
-      `Prelude.seq` Prelude.rnf accessPreviewId
-      `Prelude.seq` Prelude.rnf analyzerArn
+    Prelude.rnf filter' `Prelude.seq`
+      Prelude.rnf maxResults `Prelude.seq`
+        Prelude.rnf nextToken `Prelude.seq`
+          Prelude.rnf accessPreviewId `Prelude.seq`
+            Prelude.rnf analyzerArn
 
 instance Data.ToHeaders ListAccessPreviewFindings where
   toHeaders =
@@ -270,6 +270,6 @@ instance
     ListAccessPreviewFindingsResponse
   where
   rnf ListAccessPreviewFindingsResponse' {..} =
-    Prelude.rnf nextToken
-      `Prelude.seq` Prelude.rnf httpStatus
-      `Prelude.seq` Prelude.rnf findings
+    Prelude.rnf nextToken `Prelude.seq`
+      Prelude.rnf httpStatus `Prelude.seq`
+        Prelude.rnf findings

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/ListAccessPreviews.hs

@@ -119,12 +119,12 @@ instance Core.AWSPager ListAccessPreviews where
         ) =
         Prelude.Nothing
     | Prelude.otherwise =
-        Prelude.Just
-          Prelude.$ rq
-          Prelude.& listAccessPreviews_nextToken
-          Lens..~ rs
-          Lens.^? listAccessPreviewsResponse_nextToken
-          Prelude.. Lens._Just
+        Prelude.Just Prelude.$
+          rq
+            Prelude.& listAccessPreviews_nextToken
+              Lens..~ rs
+              Lens.^? listAccessPreviewsResponse_nextToken
+              Prelude.. Lens._Just
 
 instance Core.AWSRequest ListAccessPreviews where
   type
@@ -153,9 +153,9 @@ instance Prelude.Hashable ListAccessPreviews where
 
 instance Prelude.NFData ListAccessPreviews where
   rnf ListAccessPreviews' {..} =
-    Prelude.rnf maxResults
-      `Prelude.seq` Prelude.rnf nextToken
-      `Prelude.seq` Prelude.rnf analyzerArn
+    Prelude.rnf maxResults `Prelude.seq`
+      Prelude.rnf nextToken `Prelude.seq`
+        Prelude.rnf analyzerArn
 
 instance Data.ToHeaders ListAccessPreviews where
   toHeaders =
@@ -229,6 +229,6 @@ listAccessPreviewsResponse_accessPreviews = Lens.lens (\ListAccessPreviewsRespon
 
 instance Prelude.NFData ListAccessPreviewsResponse where
   rnf ListAccessPreviewsResponse' {..} =
-    Prelude.rnf nextToken
-      `Prelude.seq` Prelude.rnf httpStatus
-      `Prelude.seq` Prelude.rnf accessPreviews
+    Prelude.rnf nextToken `Prelude.seq`
+      Prelude.rnf httpStatus `Prelude.seq`
+        Prelude.rnf accessPreviews

lib/services/amazonka-accessanalyzer/gen/Amazonka/AccessAnalyzer/ListAnalyzedResources.hs

@@ -133,12 +133,12 @@ instance Core.AWSPager ListAnalyzedResources where
         ) =
         Prelude.Nothing
     | Prelude.otherwise =
-        Prelude.Just
-          Prelude.$ rq
-          Prelude.& listAnalyzedResources_nextToken
-          Lens..~ rs
-          Lens.^? listAnalyzedResourcesResponse_nextToken
-          Prelude.. Lens._Just
+        Prelude.Just Prelude.$
+          rq
+            Prelude.& listAnalyzedResources_nextToken
+              Lens..~ rs
+              Lens.^? listAnalyzedResourcesResponse_nextToken
+              Prelude.. Lens._Just
 
 instance Core.AWSRequest ListAnalyzedResources where
   type
@@ -168,10 +168,10 @@ instance Prelude.Hashable ListAnalyzedResources where
 
 instance Prelude.NFData ListAnalyzedResources where
   rnf ListAnalyzedResources' {..} =
-    Prelude.rnf maxResults
-      `Prelude.seq` Prelude.rnf nextToken
-      `Prelude.seq` Prelude.rnf resourceType
-      `Prelude.seq` Prelude.rnf analyzerArn
+    Prelude.rnf maxResults `Prelude.seq`
+      Prelude.rnf nextToken `Prelude.seq`
+        Prelude.rnf resourceType `Prelude.seq`
+          Prelude.rnf analyzerArn
 
 instance Data.ToHeaders ListAnalyzedResources where
   toHeaders =
@@ -253,6 +253,6 @@ listAnalyzedResourcesResponse_analyzedResources = Lens.lens (\ListAnalyzedResour
 
 instance Prelude.NFData ListAnalyzedResourcesResponse where
   rnf ListAnalyzedResourcesResponse' {..} =
-    Prelude.rnf nextToken
-      `Prelude.seq` Prelude.rnf httpStatus
-      `Prelude.seq` Prelude.rnf analyzedResources
+    Prelude.rnf nextToken `Prelude.seq`
+      Prelude.rnf httpStatus `Prelude.seq`
+        Prelude.rnf analyzedResources