Skip to content

Commit

Permalink
Merge pull request #349 from qowoz/ofborg
Browse files Browse the repository at this point in the history
fix ofborg url
  • Loading branch information
ryantm authored Apr 9, 2023
2 parents 4a2908b + 13f61cc commit 074e47e
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/Update.hs
Original file line number Diff line number Diff line change
Expand Up @@ -599,13 +599,13 @@ jqBin = fromJust ($$(envQ "JQ") :: Maybe String) <> "/bin/jq"
untilOfBorgFree :: MonadIO m => (Text -> IO ()) -> m ()
untilOfBorgFree log = do
stats <-
shell "curl -s https://events.nix.ci/stats.php" & readProcessInterleaved_
shell "curl -s https://events.ofborg.org/stats.php" & readProcessInterleaved_
waiting <-
shell (jqBin <> " .evaluator.messages.waiting") & setStdin (byteStringInput stats)
& readProcessInterleaved_
& fmap (BSL.readInt >>> fmap fst >>> fromMaybe 0)
when (waiting > 2) $ do
liftIO $ log ("Waiting for OfBorg: https://events.nix.ci/stats.php's evaluator.messages.waiting = " <> tshow waiting)
liftIO $ log ("Waiting for OfBorg: https://events.ofborg.org/stats.php's evaluator.messages.waiting = " <> tshow waiting)
liftIO $ threadDelay 60000000
untilOfBorgFree log

Expand Down

0 comments on commit 074e47e

Please sign in to comment.