From d183f48fca2164c44eafd95b465ec3cc7f81b216 Mon Sep 17 00:00:00 2001 From: sh <37271604+shumvgolove@users.noreply.github.com> Date: Mon, 6 Jul 2026 15:12:36 +0400 Subject: [PATCH] core: fix armv7a build (incomplete record update) (#7205) --- src/Simplex/Chat/Library/Commands.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Simplex/Chat/Library/Commands.hs b/src/Simplex/Chat/Library/Commands.hs index 837317176f..18ca626a46 100644 --- a/src/Simplex/Chat/Library/Commands.hs +++ b/src/Simplex/Chat/Library/Commands.hs @@ -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))