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.
This commit is contained in:
sternenseemann 2023-09-03 21:56:38 +02:00
parent 76dc153544
commit 71cbb538a5

View File

@ -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