core: fix armv7a build (incomplete record update) (#7205)

2026-07-20 00:36:46 +00:00 · 2026-07-06 12:12:36 +01:00
parent b38015c7b6
commit d183f48fca
1 changed files with 2 additions and 2 deletions
@@ -4262,10 +4262,10 @@ processChatCommand cxt nm = \case
                    case plan of
                      CPContactAddress (CAPKnown ct') -> do
                        ct'' <- refreshContact ct'
-                        pure (con l' cReq, plan {contactAddressPlan = CAPKnown ct''})
+                        pure (con l' cReq, CPContactAddress (CAPKnown ct''))
                      CPContactAddress (CAPContactViaAddress ct') -> do
                        ct'' <- refreshContact ct'
-                        pure (con l' cReq, plan {contactAddressPlan = CAPContactViaAddress ct''})
+                        pure (con l' cReq, CPContactAddress (CAPContactViaAddress ct''))
                      _ -> pure (con l' cReq, plan)
            where
              knownLinkPlans :: CM (Maybe (ACreatedConnLink, ConnectionPlan))