Start9/start-os
2
0
Fork 0
mirror of https://github.com/Start9Labs/start-os.git synced 2026-04-01 21:13:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

adds notification for successful OS update, as well as failure

Browse Source
This commit is contained in:
Keagan McClelland
2021-04-28 12:23:33 -06:00
committed by Aiden McClelland
parent db13407294
commit 82df17d854
3 changed files with 21 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
agent/src/Lib/Synchronizers.hs
View File

@@ -55,6 +55,7 @@ import Data.ByteString.Char8 ( split )
import qualified Data.ByteString.Char8 as C8
import Data.Conduit.List ( consume )
import qualified Data.Text as T
import Database.Persist.Sqlite ( runSqlPool )
import Foundation
import Handler.Network
import qualified Lib.Algebra.Domain.AppMgr as AppMgr2
@@ -62,6 +63,7 @@ import Lib.ClientManifest
import Lib.Error
import qualified Lib.External.AppMgr as AppMgr
import Lib.External.Registry
import qualified Lib.Notifications as Notifications
import Lib.Sound
import Lib.Ssl
import Lib.SystemCtl
@@ -651,8 +653,13 @@ syncRemoveDefaultNginxCfg = SyncOp "Remove Default Nginx Configuration" check mi
failUpdate :: S9Error -> ExceptT Void (ReaderT AgentCtx IO) ()
failUpdate e = do
ref <- asks appIsUpdateFailed
putStrLn $ "UPDATE FAILED: " <> errorMessage (toError e)
ref <- asks appIsUpdateFailed
pool <- asks appConnPool
let msg = errorMessage (toError e)
putStrLn $ "UPDATE FAILED: " <> msg
_ <- liftIO . flip runSqlPool pool $ Notifications.emit (AppId "embassy-os")
agentVersion
(Notifications.OsUpdateFailed msg)
liftIO $ playSong 216 beethoven
liftIO $ writeIORef ref (Just e)