diff --git a/.github/workflows/ci.yaml b/.github/workflows/ci.yaml
index 53fe984..50f0078 100644
--- a/.github/workflows/ci.yaml
+++ b/.github/workflows/ci.yaml
@@ -26,8 +26,8 @@ on:
   workflow_dispatch: # allow manual trigger
 
 env:
-  RUST: 1.73
-  GHC: 9.6.4
+  RUST: 1.82
+  GHC: 9.6.6
 
 jobs:
   fourmolu:
diff --git a/.github/workflows/release-docker-image.yaml b/.github/workflows/release-docker-image.yaml
index 25eb912..c8412e4 100644
--- a/.github/workflows/release-docker-image.yaml
+++ b/.github/workflows/release-docker-image.yaml
@@ -14,7 +14,7 @@ env:
   REGISTRY: docker.io
   IMAGE_NAME: wallet-proxy
   # the build image
-  BASE_IMAGE_TAG: rust1.73-ghc9.6.4
+  BASE_IMAGE_TAG: rust-1.82_ghc-9.6.6-1
 
 jobs:
   build-and-push-image:
diff --git a/ChangeLog.md b/ChangeLog.md
index d8947eb..808fc9d 100644
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -2,6 +2,8 @@
 
 ## Unreleased changes
 
+- Update GHC version to 9.6.6 (lts-22.39).
+
 ## 0.32.1
 
 - Endpoint `/v1/accBalance` displays correct `accountAtDisposal` when used with a node version < 7.
diff --git a/deps/concordium-client b/deps/concordium-client
index f903faa..399de6e 160000
--- a/deps/concordium-client
+++ b/deps/concordium-client
@@ -1 +1 @@
-Subproject commit f903faa586be7a26c22920ac6749929ff1783cc5
+Subproject commit 399de6ec4882e871d1edfa6fc67940da66350397
diff --git a/src/Internationalization/En.hs b/src/Internationalization/En.hs
index 6cc0187..8c0bfa4 100644
--- a/src/Internationalization/En.hs
+++ b/src/Internationalization/En.hs
@@ -184,6 +184,8 @@ translation = I18n{..}
                 DelegateToBaker bid -> "staking pool " <> Text.pack (show bid)
     i18nEvent DelegationAdded{..} = "Added delegator " <> descrDelegator edaDelegatorId edaAccount
     i18nEvent DelegationRemoved{..} = "Removed delegator " <> descrDelegator edrDelegatorId edrAccount
+    i18nEvent BakerSuspended{..} = "Validator " <> Text.pack (show ebsBakerId) <> " was suspended."
+    i18nEvent BakerResumed{..} = "Validator " <> Text.pack (show ebrBakerId) <> " was resumed."
     i18nSpecialEvent BakingRewards{..} =
         "Block rewards\n"
             <> Text.unlines (map (\(addr, amnt) -> "  - account " <> descrAccount addr <> " awarded " <> descrAmount amnt) . Map.toAscList . accountAmounts $ stoBakerRewards)
diff --git a/src/Proxy.hs b/src/Proxy.hs
index 4da4429..6d03b3c 100644
--- a/src/Proxy.hs
+++ b/src/Proxy.hs
@@ -570,10 +570,7 @@ getRewardPeriodLength lfb = do
             case cpksRes of
                 Left err -> return $ StatusOk $ GRPCResponse hds $ Left err
                 Right (EChainParametersAndKeys (ecpParams :: ChainParameters' cpv) _) -> do
-                    let rpLength = case chainParametersVersion @cpv of
-                            SChainParametersV0 -> Nothing
-                            SChainParametersV1 -> Just $ ecpParams ^. cpTimeParameters . supportedOParam . tpRewardPeriodLength
-                            SChainParametersV2 -> Just $ ecpParams ^. cpTimeParameters . supportedOParam . tpRewardPeriodLength
+                    let rpLength = ecpParams ^? cpTimeParameters . traversed . tpRewardPeriodLength
                     return $ StatusOk $ GRPCResponse hds $ Right rpLength
 
 --  |Version of the AccountBalance endpoint.
diff --git a/stack.yaml b/stack.yaml
index cd4dc3f..b9bb512 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -17,7 +17,7 @@
 #
 # resolver: ./custom-snapshot.yaml
 # resolver: https://example.com/snapshots/2018-01-01.yaml
-resolver: lts-22.9
+resolver: lts-22.39
 
 # User packages to be built.
 # Various formats can be used as shown in the example below.