initial commit

test/Live/UpdateAgent.hs

@@ -0,0 +1,24 @@
+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