diff options
author | (cdep)illabout <cdep.illabout@gmail.com> | 2021-05-08 14:15:20 +0900 |
---|---|---|
committer | Malte Brandy <malte.brandy@maralorn.de> | 2021-05-10 22:36:43 +0200 |
commit | 277bb664de43f757c5afcf7e2d414e6b94583022 (patch) | |
tree | b73a62b3626acea2223458453813d0d7e3184bd1 /maintainers/scripts | |
parent | 912c7bd20dc0e2a14430ca00037ee81b59608b7b (diff) |
maintainers/scripts/haskell/hydra-report.hs: Use only 2 queries to get report
Diffstat (limited to 'maintainers/scripts')
-rwxr-xr-x | maintainers/scripts/haskell/hydra-report.hs | 31 |
1 files changed, 17 insertions, 14 deletions
diff --git a/maintainers/scripts/haskell/hydra-report.hs b/maintainers/scripts/haskell/hydra-report.hs index 20b856c42e376..e3250ecc31179 100755 --- a/maintainers/scripts/haskell/hydra-report.hs +++ b/maintainers/scripts/haskell/hydra-report.hs @@ -11,7 +11,7 @@ The purpose of this script is 2) print a summary of the state suitable for pasting into a github comment (with ping-maintainers) 3) print a list of broken packages suitable for pasting into configuration-hackage2nix.yaml -Because step 1) is very expensive and takes roughly ~30 minutes the result is cached in a json file in XDG_CACHE. +Because step 1) is quite expensive and takes roughly ~5 minutes the result is cached in a json file in XDG_CACHE. -} {-# LANGUAGE BlockArguments #-} @@ -25,7 +25,7 @@ Because step 1) is very expensive and takes roughly ~30 minutes the result is ca {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TupleSections #-} -import Control.Monad (forM, forM_, (<=<)) +import Control.Monad (forM, forM_, when, (<=<)) import Control.Monad.Trans (MonadIO (liftIO)) import Data.Aeson ( FromJSON, @@ -60,10 +60,12 @@ import Network.HTTP.Req ( GET (GET), NoReqBody (NoReqBody), defaultHttpConfig, + header, https, jsonResponse, req, responseBody, + responseTimeout, runReq, (/:), ) @@ -83,8 +85,7 @@ newtype JobsetEvalInputs = JobsetEvalInputs {nixpkgs :: Nixpkgs} deriving (Generic, ToJSON, FromJSON, Show) data Eval = Eval - { builds :: Seq Int - , id :: Int + { id :: Int , jobsetevalinputs :: JobsetEvalInputs } deriving (Generic, ToJSON, FromJSON, Show) @@ -116,16 +117,18 @@ showT :: Show a => a -> Text showT = Text.pack . show getBuildReports :: IO () -getBuildReports = runReq defaultHttpConfig $ do - -- GET request http response - now <- liftIO getCurrentTime - r <- req GET (https "hydra.nixos.org" /: "jobset" /: "nixpkgs" /: "haskell-updates" /: "evals") NoReqBody jsonResponse mempty - let eval = Seq.lookup 0 . evals $ (responseBody r :: JobsetEvals) - eval & maybe (liftIO $ putStrLn "No Evalution found") \eval -> do - (buildReports :: Seq Build) <- forM (builds eval) \buildId -> - responseBody <$> req GET (https "hydra.nixos.org" /: "build" /: showT buildId) NoReqBody jsonResponse mempty - fileName <- liftIO reportFileName - liftIO $ encodeFile fileName (eval, now, buildReports) +getBuildReports = runReq defaultHttpConfig do + evalMay <- Seq.lookup 0 . evals <$> myReq (https "hydra.nixos.org" /: "jobset" /: "nixpkgs" /: "haskell-updates" /: "evals") mempty + eval@Eval{id} <- maybe (liftIO $ fail "No Evalution found") pure evalMay + liftIO . putStrLn $ "Fetching evaluation " <> show id <> " from Hydra. This might take a few minutes..." + buildReports :: Seq Build <- myReq (https "hydra.nixos.org" /: "eval" /: showT id /: "builds") (responseTimeout 600000000) + liftIO do + fileName <- reportFileName + putStrLn $ "Finished fetching all builds from Hydra, saving report as " <> fileName + now <- getCurrentTime + encodeFile fileName (eval, now, buildReports) + where + myReq query option = responseBody <$> req GET query NoReqBody jsonResponse (header "User-Agent" "hydra-report.hs/v1 (nixkpgs;maintainers/scripts/haskell)" <> option) hydraEvalCommand = "hydra-eval-jobs" hydraEvalParams = ["-I", ".", "pkgs/top-level/release-haskell.nix"] |