public
/
nixpkgs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

maintainers/scripts/haskell/hydra-report.hs: Support HydraFailure statuscode

This commit is contained in:
Malte Brandy 2021-05-11 02:27:49 +02:00
parent 3699b5b74c
commit 49a014f3e9
No known key found for this signature in database
GPG Key ID: 226A2D41EF5378C9
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
maintainers/scripts/haskell/hydra-report.hs
View File

@ -155,7 +155,7 @@ getMaintainerMap = do
get c p i e = readProcess c p i <&> \x -> either (error . (<> " Raw:'" <> take 1000 x <> "'") . (e <>)) Prelude.id . eitherDecodeStrict' . encodeUtf8 . Text.pack $ x get c p i e = readProcess c p i <&> \x -> either (error . (<> " Raw:'" <> take 1000 x <> "'") . (e <>)) Prelude.id . eitherDecodeStrict' . encodeUtf8 . Text.pack $ x
-- BuildStates are sorted by subjective importance/concerningness -- BuildStates are sorted by subjective importance/concerningness
data BuildState = Failed | DependencyFailed | OutputLimitExceeded | Unknown (Maybe Int) | TimedOut | Canceled | Unfinished | Success deriving (Show, Eq, Ord) data BuildState = Failed | DependencyFailed | OutputLimitExceeded | Unknown (Maybe Int) | TimedOut | Canceled | HydraFailure | Unfinished | Success deriving (Show, Eq, Ord)
icon :: BuildState -> Text icon :: BuildState -> Text
icon = \case icon = \case
@ -166,6 +166,7 @@ icon = \case
TimedOut -> ":hourglass::no_entry_sign:" TimedOut -> ":hourglass::no_entry_sign:"
Canceled -> ":no_entry_sign:" Canceled -> ":no_entry_sign:"
Unfinished -> ":hourglass_flowing_sand:" Unfinished -> ":hourglass_flowing_sand:"
HydraFailure -> ":construction:"
Success -> ":heavy_check_mark:" Success -> ":heavy_check_mark:"
platformIcon :: Platform -> Text platformIcon :: Platform -> Text
@ -199,10 +200,11 @@ buildSummary maintainerMap = foldl (Map.unionWith unionSummary) Map.empty . fmap
state = case (finished, buildstatus) of state = case (finished, buildstatus) of
(0, _) -> Unfinished (0, _) -> Unfinished
(_, Just 0) -> Success (_, Just 0) -> Success
(_, Just 1) -> Failed
(_, Just 2) -> DependencyFailed
(_, Just 3) -> HydraFailure
(_, Just 4) -> Canceled (_, Just 4) -> Canceled
(_, Just 7) -> TimedOut (_, Just 7) -> TimedOut
(_, Just 2) -> DependencyFailed
(_, Just 1) -> Failed
(_, Just 11) -> OutputLimitExceeded (_, Just 11) -> OutputLimitExceeded
(_, i) -> Unknown i (_, i) -> Unknown i
packageName = fromMaybe job (Text.stripSuffix ("." <> system) job) packageName = fromMaybe job (Text.stripSuffix ("." <> system) job)