Start9/start-os
2
0
Fork 0
mirror of https://github.com/Start9Labs/start-os.git synced 2026-03-30 12:11:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix avahi-daemon edge case

Browse Source
This commit is contained in:
Keagan McClelland
2021-02-26 19:00:47 -07:00
committed by Aiden McClelland
parent 29a4506a40
commit cc49a73954
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
agent/src/Daemon/ZeroConf.hs
View File

@@ -18,6 +18,9 @@ import Lib.ProductKey
import Lib.SystemPaths import Lib.SystemPaths
import Settings import Settings
import qualified Lib.Algebra.Domain.AppMgr as AppMgr2
import Control.Carrier.Lift
import Lib.Error
start9AgentServicePrefix :: IsString a => a start9AgentServicePrefix :: IsString a => a
start9AgentServicePrefix = "start9-" start9AgentServicePrefix = "start9-"
@@ -53,4 +56,10 @@ publishAgentToAvahi = do
"_http._tcp" "_http._tcp"
agentPort agentPort
lift Avahi.reload lift Avahi.reload
lift $ threadDelay 10_000_000
tid <- asks appLanThread >>= liftIO . takeMVar
liftIO $ killThread tid
tid' <- liftIO $ forkIO (runM . void . runExceptT @S9Error $ AppMgr2.runAppMgrCliC AppMgr2.lanEnable)
asks appLanThread >>= liftIO . flip putMVar tid'