From 265a3a3b1581f0d7825e04d772d2f34e490745db Mon Sep 17 00:00:00 2001
From: Dennis Gosnell <cdep.illabout@gmail.com>
Date: Fri, 24 Mar 2023 20:55:52 +0900
Subject: [PATCH] haskellPackages: add types and some formatting to
 hydra-report.hs

---
 maintainers/scripts/haskell/hydra-report.hs | 37 +++++++++++++++++++--
 1 file changed, 34 insertions(+), 3 deletions(-)

diff --git a/maintainers/scripts/haskell/hydra-report.hs b/maintainers/scripts/haskell/hydra-report.hs
index 25640864dbe..bc00cd12902 100755
--- a/maintainers/scripts/haskell/hydra-report.hs
+++ b/maintainers/scripts/haskell/hydra-report.hs
@@ -342,6 +342,9 @@ data SummaryEntry = SummaryEntry {
 }
 type StatusSummary = Map Text SummaryEntry
 
+tableSingleton :: row -> col -> a -> Table row col a
+tableSingleton row col a = Table (Map.singleton (row, col) a)
+
 instance (Ord row, Ord col, Semigroup a) => Semigroup (Table row col a) where
    Table l <> Table r = Table (Map.unionWith (<>) l r)
 instance (Ord row, Ord col, Semigroup a) => Monoid (Table row col a) where
@@ -364,18 +367,39 @@ getBuildState Build{finished, buildstatus} = case (finished, buildstatus) of
    (_, i) -> Unknown i
 
 buildSummary :: MaintainerMap -> ReverseDependencyMap -> Seq Build -> StatusSummary
-buildSummary maintainerMap reverseDependencyMap = foldl (Map.unionWith unionSummary) Map.empty . fmap toSummary
+buildSummary maintainerMap reverseDependencyMap =
+   foldl (Map.unionWith unionSummary) Map.empty . fmap toSummary
   where
-   unionSummary (SummaryEntry (Table lb) lm lr lu) (SummaryEntry (Table rb) rm rr ru) = SummaryEntry (Table $ Map.union lb rb) (lm <> rm) (max lr rr) (max lu ru)
-   toSummary build@Build{job, id, system} = Map.singleton name (SummaryEntry (Table (Map.singleton (set, Platform system) (BuildResult (getBuildState build) id))) maintainers reverseDeps unbrokenReverseDeps)
+   unionSummary :: SummaryEntry -> SummaryEntry -> SummaryEntry
+   unionSummary (SummaryEntry (Table lb) lm lr lu) (SummaryEntry (Table rb) rm rr ru) =
+      SummaryEntry (Table $ Map.union lb rb) (lm <> rm) (max lr rr) (max lu ru)
+
+   toSummary :: Build -> StatusSummary
+   toSummary build@Build{job, id, system} = Map.singleton name summaryEntry
      where
+      packageName :: Text
       packageName = fromMaybe job (Text.stripSuffix ("." <> system) job)
+
+      splitted :: Maybe (NonEmpty Text)
       splitted = nonEmpty $ Text.splitOn "." packageName
+
+      name :: Text
       name = maybe packageName NonEmpty.last splitted
+
+      set :: Text
       set = maybe "" (Text.intercalate "." . NonEmpty.init) splitted
+
+      maintainers :: Set Text
       maintainers = maybe mempty (Set.fromList . toList) (Map.lookup job maintainerMap)
+
       (reverseDeps, unbrokenReverseDeps) = Map.findWithDefault (0,0) name reverseDependencyMap
 
+      buildTable :: Table Text Platform BuildResult
+      buildTable =
+         tableSingleton set (Platform system) (BuildResult (getBuildState build) id)
+
+      summaryEntry = SummaryEntry buildTable maintainers reverseDeps unbrokenReverseDeps
+
 readBuildReports :: IO (Eval, UTCTime, Seq Build)
 readBuildReports = do
    file <- reportFileName
@@ -463,9 +487,16 @@ printBuildSummary eval@Eval{id} fetchTime summary topBrokenRdeps =
          <> printTable "Platform" (\x -> makeSearchLink id (platform x <> " " <> platformIcon x) ("." <> platform x)) (\x -> showT x <> " " <> icon x) showT numSummary
    brokenLine (name, rdeps) = "[" <> name <> "](https://packdeps.haskellers.com/reverse/" <> name <> ") :arrow_heading_up: " <> Text.pack (show rdeps) <> "  "
    numSummary = statusToNumSummary summary
+
+   jobsByState :: (BuildState -> Bool) -> Map Text SummaryEntry
    jobsByState predicate = Map.filter (predicate . worstState) summary
+
+   worstState :: SummaryEntry -> BuildState
    worstState = foldl' min Success . fmap state . summaryBuilds
+
+   fails :: Map Text SummaryEntry
    fails = jobsByState (== Failed)
+
    failedDeps = jobsByState (== DependencyFailed)
    unknownErr = jobsByState (\x -> x > DependencyFailed && x < TimedOut)
    withMaintainer = Map.mapMaybe (\e -> (summaryBuilds e,) <$> nonEmpty (Set.toList (summaryMaintainers e)))