Call putPoolRetirement on encountering a retirement certificate.

cardano-foundation · Jul 6, 2020 · 503cc7e · 503cc7e
1 parent 31c391e
commit 503cc7e
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Pools.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Pools.hs
@@ -362,11 +362,12 @@ monitorStakePools tr gp nl db@DBLayer{..} = do
                     Right () ->
                         pure ()
             forM_ registrations $ \case
-                Registration pool -> do
-                    liftIO $ traceWith tr $ MsgStakePoolRegistration pool
-                    putPoolRegistration slot pool
+                Registration cert -> do
+                    liftIO $ traceWith tr $ MsgStakePoolRegistration cert
+                    putPoolRegistration slot cert
                 Retirement cert -> do
                     liftIO $ traceWith tr $ MsgStakePoolRetirement cert
+                    putPoolRetirement slot cert
         pure Continue
 
 monitorMetadata