From 71cbb538a5b9cb6b69cea6f0c386f29b5f5a5f2e Mon Sep 17 00:00:00 2001 From: sternenseemann Date: Sun, 3 Sep 2023 21:56:38 +0200 Subject: [PATCH] maintainers/haskell/hydra-report.hs: increase timeout to 15min This seems to be the server side Hydra timeout as well, so it makes sense waiting as long as Hydra will try to give a response. --- maintainers/scripts/haskell/hydra-report.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/maintainers/scripts/haskell/hydra-report.hs b/maintainers/scripts/haskell/hydra-report.hs index 68ba75452d43..0b8ca6bd1f46 100755 --- a/maintainers/scripts/haskell/hydra-report.hs +++ b/maintainers/scripts/haskell/hydra-report.hs @@ -187,7 +187,7 @@ getBuildReports opt = runReq defaultHttpConfig do getEvalBuilds :: HydraSlownessWorkaroundFlag -> Int -> Req (Seq Build) getEvalBuilds NoHydraSlownessWorkaround id = - hydraJSONQuery (responseTimeout 600000000) ["eval", showT id, "builds"] + hydraJSONQuery (responseTimeout 900000000) ["eval", showT id, "builds"] getEvalBuilds HydraSlownessWorkaround id = do Eval{builds} <- hydraJSONQuery mempty [ "eval", showT id ] forM builds $ \buildId -> do