mirror of
https://github.com/Start9Labs/registry.git
synced 2026-03-26 10:21:51 +00:00
25 lines
977 B
Haskell
25 lines
977 B
Haskell
module Live.UpdateAgent where
|
|
|
|
import Application
|
|
import Lib.Types.ServerApp
|
|
import Lib.UpdateAgent
|
|
import Startlude
|
|
|
|
av :: AppVersion
|
|
av = AppVersion (0,0,0)
|
|
|
|
avs :: AppVersionSpecification
|
|
avs = AppVersionSpecification SVEquals av
|
|
|
|
-- Need a few things to run this...
|
|
-- 1) a running "registry" server, pointed to by the settings.yml this file is run against.
|
|
-- 2) that server needs to serve up an executable file at /agent.0.0.0 (the version of av above)
|
|
-- 3) the executable file must itself spin up a server on the same port as this application, defined again in settings.yml
|
|
-- 4) that server must also respond to /version with a semver version in the format "0.0.0"
|
|
-- 5) If all goes well, the stack ghci session which calls updateAgentLive should have been killed, and the executable should still be running
|
|
|
|
updateAgentLive :: IO ()
|
|
updateAgentLive = do
|
|
(_, agentCtx, _) <- getApplicationRepl
|
|
updateAgent' avs agentCtx
|