From 29a4506a404dc8a531b0e03d1c36b5a4b1f74e33 Mon Sep 17 00:00:00 2001 From: Keagan McClelland Date: Fri, 26 Feb 2021 18:08:43 -0700 Subject: [PATCH] fixes edge case where upgrade to 0.2.9 would not correctly set up lan --- agent/src/Lib/Synchronizers.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/agent/src/Lib/Synchronizers.hs b/agent/src/Lib/Synchronizers.hs index ca490f325..d00ea7de0 100644 --- a/agent/src/Lib/Synchronizers.hs +++ b/agent/src/Lib/Synchronizers.hs @@ -66,6 +66,7 @@ import qualified Lib.Algebra.Domain.AppMgr as AppMgr2 import Daemon.ZeroConf ( getStart9AgentHostname ) import qualified Data.Text as T import Control.Effect.Error hiding ( run ) +import Handler.Network data Synchronizer = Synchronizer @@ -423,6 +424,7 @@ syncInstallAppMgr = SyncOp "Install AppMgr" check migrate False avs <- asks $ appMgrVersionSpec . appSettings av <- AppMgr.installNewAppMgr avs unless (av <|| avs) $ throwE $ AppMgrVersionE av avs + postResetLanLogic -- to accommodate 0.2.x -> 0.2.9 where previous appmgr didn't correctly set up lan syncUpgradeLifeline :: SyncOp syncUpgradeLifeline = SyncOp "Upgrade Lifeline" check migrate False