commit 1da75e70f8e760565f564f16469081f2d114f4eb · pyrox.dev/nixpkgs

+16 -11
maintainers/scripts/haskell/hydra-report.hs
···

       141
       141
        
       handlesExpression :: String

     

       142
       142
        
       handlesExpression = "with import ./. {}; with lib; zipAttrsWith (_: builtins.head) (mapAttrsToList (_: v: if v ? github then { \"${v.email}\" = v.github; } else {}) (import maintainers/maintainer-list.nix))"

     

       143
       143
        
       

     

       144
       144
       -
       newtype Maintainers = Maintainers {maintainers :: Text} deriving (Generic, ToJSON, FromJSON)

     

       144
       144
       +
       newtype Maintainers = Maintainers {maintainers :: Maybe Text} deriving (Generic, ToJSON, FromJSON)

     

       145
       145
        
       

     

       146
       146
        
       type HydraJobs = Map Text Maintainers

     

       147
       147
        
       type MaintainerMap = Map Text (NonEmpty Text)

     
···

       150
       150
        
       getMaintainerMap = do

     

       151
       151
        
          hydraJobs :: HydraJobs <- get hydraEvalCommand hydraEvalParams "" "Failed to decode hydra-eval-jobs output: "

     

       152
       152
        
          handlesMap :: Map Text Text <- get handlesCommand handlesParams handlesExpression "Failed to decode nix output for lookup of github handles: "

     

       153
       153
       -
          pure $ hydraJobs & Map.mapMaybe (nonEmpty . mapMaybe (`Map.lookup` handlesMap) . Text.splitOn ", " . maintainers)

     

       153
       153
       +
          pure $ hydraJobs & Map.mapMaybe (nonEmpty . mapMaybe (`Map.lookup` handlesMap) . Text.splitOn ", " . fromMaybe "" . maintainers)

     

       154
       154
        
         where

     

       155
       155
       -
          get c p i e = readProcess c p i <&> \x -> either (error . (<> "Raw:'" <> x <> "'") . (e <>)) Prelude.id . eitherDecodeStrict' . encodeUtf8 . Text.pack $ x

     

       155
       155
       +
          get c p i e = readProcess c p i <&> \x -> either (error . (<> " Raw:'" <> take 1000 x <> "'") . (e <>)) Prelude.id . eitherDecodeStrict' . encodeUtf8 . Text.pack $ x

     

       156
       156
        
       

     

       157
       157
        
       -- BuildStates are sorted by subjective importance/concerningness

     

       158
       158
        
       data BuildState = Failed | DependencyFailed | OutputLimitExceeded | Unknown (Maybe Int) | TimedOut | Canceled | Unfinished | Success deriving (Show, Eq, Ord)

     
···

       231
       231
        
          rows = toList $ Set.fromList (fst <$> Map.keys mapping)

     

       232
       232
        
          cols = toList $ Set.fromList (snd <$> Map.keys mapping)

     

       233
       233
        
       

     

       234
       234
       -
       printJob :: Text -> (Table Text Platform BuildResult, Text) -> [Text]

     

       235
       235
       -
       printJob name (Table mapping, maintainers) =

     

       234
       234
       +
       printJob :: Int -> Text -> (Table Text Platform BuildResult, Text) -> [Text]

     

       235
       235
       +
       printJob evalId name (Table mapping, maintainers) =

     

       236
       236
        
          if length sets <= 1

     

       237
       237
        
             then map printSingleRow sets

     

       238
       238
       -
             else ["- [ ] " <> name <> " " <> maintainers] <> map printRow sets

     

       238
       238
       +
             else ["- [ ] " <> makeJobSearchLink "" name <> " " <> maintainers] <> map printRow sets

     

       239
       239
        
         where

     

       240
       240
       -
          printRow set = "  - " <> printState set <> " " <> (if Text.null set then "toplevel" else set)

     

       241
       241
       -
          printSingleRow set = "- [ ] " <> printState set <> " " <> (if Text.null set then "" else set <> ".") <> name <> " " <> maintainers

     

       240
       240
       +
          printRow set = "  - " <> printState set <> " " <> makeJobSearchLink set (if Text.null set then "toplevel" else set)

     

       241
       241
       +
          printSingleRow set = "- [ ] " <> printState set <> " " <> makeJobSearchLink set (makePkgName set) <> " " <> maintainers

     

       242
       242
       +
          makePkgName set = (if Text.null set then "" else set <> ".") <> name

     

       242
       243
        
          printState set = Text.intercalate " " $ map (\pf -> maybe "" (label pf) $ Map.lookup (set, pf) mapping) platforms

     

       244
       244
       +
          makeJobSearchLink set linkLabel= makeSearchLink evalId linkLabel (makePkgName set <> ".") -- Append '.' to the search query to prevent e.g. "hspec." matching "hspec-golden.x86_64-linux"

     

       243
       245
        
          sets = toList $ Set.fromList (fst <$> Map.keys mapping)

     

       244
       246
        
          platforms = toList $ Set.fromList (snd <$> Map.keys mapping)

     

       245
       247
        
          label pf (BuildResult s i) = "[[" <> platformIcon pf <> icon s <> "]](https://hydra.nixos.org/build/" <> showT i <> ")"

     

       248
       248
       +
       

     

       249
       249
       +
       makeSearchLink :: Int -> Text -> Text -> Text

     

       250
       250
       +
       makeSearchLink evalId linkLabel query = "[" <> linkLabel <> "](" <> "https://hydra.nixos.org/eval/" <> showT evalId <> "?filter=" <> query <> ")"

     

       246
       251
        
       

     

       247
       252
        
       statusToNumSummary :: StatusSummary -> NumSummary

     

       248
       253
        
       statusToNumSummary = fmap getSum . foldMap (fmap Sum . jobTotals)

     
···

       273
       278
        
                [ "#### Build summary"

     

       274
       279
        
                , ""

     

       275
       280
        
                ]

     

       276
       276
       -
                   <> printTable "Platform" (\x -> platform x <> " " <> platformIcon x) (\x -> showT x <> " " <> icon x) showT (statusToNumSummary summary)

     

       281
       281
       +
                   <> printTable "Platform" (\x -> makeSearchLink id (platform x <> " " <> platformIcon x) ("." <> platform x)) (\x -> showT x <> " " <> icon x) showT (statusToNumSummary summary)

     

       277
       282
        
             headline =

     

       278
       283
        
                [ "### [haskell-updates build report from hydra](https://hydra.nixos.org/jobset/nixpkgs/haskell-updates)"

     

       279
       284
        
                , "*evaluation ["

     
···

       298
       303
        
             optionalHideableList heading list = if null list then mempty else [heading] <> details (showT (length list) <> " job(s)") list

     

       299
       304
        
             maintainedList = showMaintainedBuild <=< Map.toList . withMaintainer

     

       300
       305
        
             unmaintainedList = showBuild <=< Map.toList . withoutMaintainer

     

       301
       301
       -
             showBuild (name, table) = printJob name (table, "")

     

       302
       302
       -
             showMaintainedBuild (name, (table, maintainers)) = printJob name (table, Text.intercalate " " (fmap ("@" <>) (toList maintainers)))

     

       306
       306
       +
             showBuild (name, table) = printJob id name (table, "")

     

       307
       307
       +
             showMaintainedBuild (name, (table, maintainers)) = printJob id name (table, Text.intercalate " " (fmap ("@" <>) (toList maintainers)))

     

       303
       308
        
       

     

       304
       309
        
       printMaintainerPing :: IO ()

     

       305
       310
        
       printMaintainerPing = do