rds-data 0.0.0.9 → 0.0.0.10

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• rds-data.cabal +1/−1
• testlib/Data/RdsData/Polysemy/Test/Cluster.hs +2/−2

@@ -1,7 +1,7 @@ cabal-version: 3.6  name:                   rds-data-version:                0.0.0.9+version:                0.0.0.10 synopsis:               Codecs for use with AWS rds-data description:            Codecs for use with AWS rds-data. category:               Data

@@ -124,7 +124,7 @@   -> Sem r () waitUntilRdsDbClusterAvailable dbClusterArn =   withFrozenCallStack do-    repeatNWhileM_ 24 $ \_ -> do+    repeatNWhileM_ 120 $ \_ -> do       result <- sendAws $         AWS.newDescribeDBClusters           & the @"dbClusterIdentifier" .~ Just dbClusterArn@@ -132,5 +132,5 @@       let mStatus = result ^? the @"dbClusters" . _Just . each . the @"status" . _Just        if mStatus == Just "available"-        then pure False+        then threadDelay 1_000_000 >> pure False         else threadDelay 1_000_000 >> pure True