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

address pr comments

Browse Source
This commit is contained in:
Aiden McClelland
2020-12-02 12:58:18 -07:00
committed by Keagan McClelland
parent 5a121945d2
commit 3ababacd91
3 changed files with 5 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -540,17 +540,15 @@ replaceDerivativeCerts = do
syncRestarterService :: SyncOp
syncRestarterService = SyncOp "Install Restarter Service" check migrate False
where
wantedScript = decodeUtf8 $(embedFile "config/restarter.sh")
wantedService = decodeUtf8 $(embedFile "config/restarter.service")
wantedTimer = decodeUtf8 $(embedFile "config/restarter.timer")
wantedService = $(embedFile "config/restarter.service")
wantedTimer = $(embedFile "config/restarter.timer")
check = do
base <- asks $ appFilesystemBase . appSettings
liftIO $ not <$> doesPathExist (toS $ "/etc/systemd/system/timers.target.wants/restarter.timer" `relativeTo` base)
migrate = do
base <- asks $ appFilesystemBase . appSettings
liftIO $ writeFile (toS $ "/usr/local/bin/restarter.sh" `relativeTo` base) wantedScript
liftIO $ writeFile (toS $ "/etc/systemd/system/restarter.service" `relativeTo` base) wantedService
liftIO $ writeFile (toS $ "/etc/systemd/system/restarter.timer" `relativeTo` base) wantedTimer
liftIO $ BS.writeFile (toS $ "/etc/systemd/system/restarter.service" `relativeTo` base) wantedService
liftIO $ BS.writeFile (toS $ "/etc/systemd/system/restarter.timer" `relativeTo` base) wantedTimer
liftIO . run $ systemctl "enable" "restarter.timer"
failUpdate :: S9Error -> ExceptT Void (ReaderT AgentCtx IO) ()