vigilance 0.1.0.0 → 0.1.0.1

raw patch · 3 files changed

+8/−3 lines, 3 files

Files

• src/Utils/Vigilance/Main.hs +5/−1
• src/Utils/Vigilance/Notifiers/HTTP.hs +2/−1
• vigilance.cabal +1/−1

@@ -102,7 +102,7 @@                         let watchWorker    = runInLogCtx lCtx $ WW.runWorker acid configChanR'                         let webApp         = WebApp acid cfg logChan -                        vLog "Starting logger" -- TIME PARADOX+                        vLog "Starting logger"                          logger <- lift $ async $ workForeverWith loggerH loggerWorker @@ -126,6 +126,10 @@                         vLog "Starting web server"                         server <- lift $ async $ runServer webApp +                        vLog "Priming reload queue"+                        lift $ broadcastCfgReload rCfg configChanW++                        vLog "Starting static watch worker"                         static <- lift $ async $ workForeverWith staticH watchWorker                          let workers = [ server

@@ -34,10 +34,11 @@ makeRequest :: EWatch -> URL -> LogCtxT IO (Maybe FailedNotification) makeRequest w url = do   inputStream <- lift $ jsonBodyStream w-  vLog [qc|Notifying {w ^. watchName} at {url}|]+  vLog [qc|Notifying {wn} at {url}|]   result <- lift . tryAny $ post url "application/json" inputStream skipResponse   either failedByException handleCode result   where skipResponse r _ = return $ getStatusCode r+        wn               = w ^. watchName . unWatchName         handleCode code           | inRange (200, 299) code = success code           | otherwise               = failure code

@@ -1,5 +1,5 @@ Name:                vigilance-Version:             0.1.0.0+Version:             0.1.0.1 Synopsis:            An extensible dead-man's switch system Description:         Vigilance is a dead man's switch (See <https://en.wikipedia.org/wiki/Dead_man%27s_switch>)                      (or vigilance switch). You define named @watches that you expect to happen