maintainers/scripts/haskell: Add r-deps information to build-report
This commit is contained in:
parent
b3da6961d5
commit
ed2b092333
10
maintainers/scripts/haskell/dependencies.nix
Normal file
10
maintainers/scripts/haskell/dependencies.nix
Normal file
|
@ -0,0 +1,10 @@
|
||||||
|
# Nix script to calculate the Haskell dependencies of every haskellPackage. Used by ./hydra-report.hs.
|
||||||
|
let
|
||||||
|
pkgs = import ../../.. {};
|
||||||
|
inherit (pkgs) lib;
|
||||||
|
getDeps = _: pkg: {
|
||||||
|
deps = builtins.filter (x: !isNull x) (map (x: x.pname or null) (pkg.propagatedBuildInputs or []));
|
||||||
|
broken = (pkg.meta.hydraPlatforms or [null]) == [];
|
||||||
|
};
|
||||||
|
in
|
||||||
|
lib.mapAttrs getDeps pkgs.haskellPackages
|
|
@ -26,6 +26,8 @@ Because step 1) is quite expensive and takes roughly ~5 minutes the result is ca
|
||||||
{-# LANGUAGE ScopedTypeVariables #-}
|
{-# LANGUAGE ScopedTypeVariables #-}
|
||||||
{-# LANGUAGE TupleSections #-}
|
{-# LANGUAGE TupleSections #-}
|
||||||
{-# OPTIONS_GHC -Wall #-}
|
{-# OPTIONS_GHC -Wall #-}
|
||||||
|
{-# LANGUAGE ViewPatterns #-}
|
||||||
|
{-# LANGUAGE TupleSections #-}
|
||||||
|
|
||||||
import Control.Monad (forM_, (<=<))
|
import Control.Monad (forM_, (<=<))
|
||||||
import Control.Monad.Trans (MonadIO (liftIO))
|
import Control.Monad.Trans (MonadIO (liftIO))
|
||||||
|
@ -70,6 +72,12 @@ import System.Directory (XdgDirectory (XdgCache), getXdgDirectory)
|
||||||
import System.Environment (getArgs)
|
import System.Environment (getArgs)
|
||||||
import System.Process (readProcess)
|
import System.Process (readProcess)
|
||||||
import Prelude hiding (id)
|
import Prelude hiding (id)
|
||||||
|
import Data.List (sortOn)
|
||||||
|
import Control.Concurrent.Async (concurrently)
|
||||||
|
import Control.Exception (evaluate)
|
||||||
|
import qualified Data.IntMap.Strict as IntMap
|
||||||
|
import qualified Data.IntSet as IntSet
|
||||||
|
import Data.Bifunctor (second)
|
||||||
|
|
||||||
newtype JobsetEvals = JobsetEvals
|
newtype JobsetEvals = JobsetEvals
|
||||||
{ evals :: Seq Eval
|
{ evals :: Seq Eval
|
||||||
|
@ -134,20 +142,17 @@ hydraEvalCommand = "hydra-eval-jobs"
|
||||||
hydraEvalParams :: [String]
|
hydraEvalParams :: [String]
|
||||||
hydraEvalParams = ["-I", ".", "pkgs/top-level/release-haskell.nix"]
|
hydraEvalParams = ["-I", ".", "pkgs/top-level/release-haskell.nix"]
|
||||||
|
|
||||||
handlesCommand :: FilePath
|
nixExprCommand :: FilePath
|
||||||
handlesCommand = "nix-instantiate"
|
nixExprCommand = "nix-instantiate"
|
||||||
|
|
||||||
handlesParams :: [String]
|
nixExprParams :: [String]
|
||||||
handlesParams = ["--eval", "--strict", "--json", "-"]
|
nixExprParams = ["--eval", "--strict", "--json"]
|
||||||
|
|
||||||
handlesExpression :: String
|
|
||||||
handlesExpression = "with import ./. {}; with lib; zipAttrsWith (_: builtins.head) (mapAttrsToList (_: v: if v ? github then { \"${v.email}\" = v.github; } else {}) (import maintainers/maintainer-list.nix))"
|
|
||||||
|
|
||||||
-- | This newtype is used to parse a Hydra job output from @hydra-eval-jobs@.
|
-- | This newtype is used to parse a Hydra job output from @hydra-eval-jobs@.
|
||||||
-- The only field we are interested in is @maintainers@, which is why this
|
-- The only field we are interested in is @maintainers@, which is why this
|
||||||
-- is just a newtype.
|
-- is just a newtype.
|
||||||
--
|
--
|
||||||
-- Note that there are occassionally jobs that don't have a maintainers
|
-- Note that there are occasionally jobs that don't have a maintainers
|
||||||
-- field, which is why this has to be @Maybe Text@.
|
-- field, which is why this has to be @Maybe Text@.
|
||||||
newtype Maintainers = Maintainers { maintainers :: Maybe Text }
|
newtype Maintainers = Maintainers { maintainers :: Maybe Text }
|
||||||
deriving stock (Generic, Show)
|
deriving stock (Generic, Show)
|
||||||
|
@ -195,13 +200,49 @@ type EmailToGitHubHandles = Map Text Text
|
||||||
-- @@
|
-- @@
|
||||||
type MaintainerMap = Map Text (NonEmpty Text)
|
type MaintainerMap = Map Text (NonEmpty Text)
|
||||||
|
|
||||||
-- | Generate a mapping of Hydra job names to maintainer GitHub handles.
|
-- | Information about a package which lists its dependencies and whether the
|
||||||
|
-- package is marked broken.
|
||||||
|
data DepInfo = DepInfo {
|
||||||
|
deps :: Set Text,
|
||||||
|
broken :: Bool
|
||||||
|
}
|
||||||
|
deriving stock (Generic, Show)
|
||||||
|
deriving anyclass (FromJSON, ToJSON)
|
||||||
|
|
||||||
|
-- | Map from package names to their DepInfo. This is the data we get out of a
|
||||||
|
-- nix call.
|
||||||
|
type DependencyMap = Map Text DepInfo
|
||||||
|
|
||||||
|
-- | Map from package names to its broken state, number of reverse dependencies (fst) and
|
||||||
|
-- unbroken reverse dependencies (snd).
|
||||||
|
type ReverseDependencyMap = Map Text (Int, Int)
|
||||||
|
|
||||||
|
-- | Calculate the (unbroken) reverse dependencies of a package by transitively
|
||||||
|
-- going through all packages if it’s a dependency of them.
|
||||||
|
calculateReverseDependencies :: DependencyMap -> ReverseDependencyMap
|
||||||
|
calculateReverseDependencies depMap = Map.fromDistinctAscList $ zip keys (zip (rdepMap False) (rdepMap True))
|
||||||
|
where
|
||||||
|
-- This code tries to efficiently invert the dependency map and calculate
|
||||||
|
-- it’s transitive closure by internally identifying every pkg with it’s index
|
||||||
|
-- in the package list and then using memoization.
|
||||||
|
keys = Map.keys depMap
|
||||||
|
pkgToIndexMap = Map.fromDistinctAscList (zip keys [0..])
|
||||||
|
intDeps = zip [0..] $ (\DepInfo{broken,deps} -> (broken,mapMaybe (`Map.lookup` pkgToIndexMap) $ Set.toList deps)) <$> Map.elems depMap
|
||||||
|
rdepMap onlyUnbroken = IntSet.size <$> resultList
|
||||||
|
where
|
||||||
|
resultList = go <$> [0..]
|
||||||
|
oneStepMap = IntMap.fromListWith IntSet.union $ (\(key,(_,deps)) -> (,IntSet.singleton key) <$> deps) <=< filter (\(_, (broken,_)) -> not (broken && onlyUnbroken)) $ intDeps
|
||||||
|
go pkg = IntSet.unions (oneStep:((resultList !!) <$> IntSet.toList oneStep))
|
||||||
|
where oneStep = IntMap.findWithDefault mempty pkg oneStepMap
|
||||||
|
|
||||||
|
-- | Generate a mapping of Hydra job names to maintainer GitHub handles. Calls
|
||||||
|
-- hydra-eval-jobs and the nix script ./maintainer-handles.nix.
|
||||||
getMaintainerMap :: IO MaintainerMap
|
getMaintainerMap :: IO MaintainerMap
|
||||||
getMaintainerMap = do
|
getMaintainerMap = do
|
||||||
hydraJobs :: HydraJobs <-
|
hydraJobs :: HydraJobs <-
|
||||||
readJSONProcess hydraEvalCommand hydraEvalParams "" "Failed to decode hydra-eval-jobs output: "
|
readJSONProcess hydraEvalCommand hydraEvalParams "Failed to decode hydra-eval-jobs output: "
|
||||||
handlesMap :: EmailToGitHubHandles <-
|
handlesMap :: EmailToGitHubHandles <-
|
||||||
readJSONProcess handlesCommand handlesParams handlesExpression "Failed to decode nix output for lookup of github handles: "
|
readJSONProcess nixExprCommand ("maintainers/scripts/haskell/maintainer-handles.nix":nixExprParams) "Failed to decode nix output for lookup of github handles: "
|
||||||
pure $ Map.mapMaybe (splitMaintainersToGitHubHandles handlesMap) hydraJobs
|
pure $ Map.mapMaybe (splitMaintainersToGitHubHandles handlesMap) hydraJobs
|
||||||
where
|
where
|
||||||
-- Split a comma-spearated string of Maintainers into a NonEmpty list of
|
-- Split a comma-spearated string of Maintainers into a NonEmpty list of
|
||||||
|
@ -211,6 +252,12 @@ getMaintainerMap = do
|
||||||
splitMaintainersToGitHubHandles handlesMap (Maintainers maint) =
|
splitMaintainersToGitHubHandles handlesMap (Maintainers maint) =
|
||||||
nonEmpty . mapMaybe (`Map.lookup` handlesMap) . Text.splitOn ", " $ fromMaybe "" maint
|
nonEmpty . mapMaybe (`Map.lookup` handlesMap) . Text.splitOn ", " $ fromMaybe "" maint
|
||||||
|
|
||||||
|
-- | Get the a map of all dependencies of every package by calling the nix
|
||||||
|
-- script ./dependencies.nix.
|
||||||
|
getDependencyMap :: IO DependencyMap
|
||||||
|
getDependencyMap =
|
||||||
|
readJSONProcess nixExprCommand ("maintainers/scripts/haskell/dependencies.nix":nixExprParams) "Failed to decode nix output for lookup of dependencies: "
|
||||||
|
|
||||||
-- | Run a process that produces JSON on stdout and and decode the JSON to a
|
-- | Run a process that produces JSON on stdout and and decode the JSON to a
|
||||||
-- data type.
|
-- data type.
|
||||||
--
|
--
|
||||||
|
@ -219,11 +266,10 @@ readJSONProcess
|
||||||
:: FromJSON a
|
:: FromJSON a
|
||||||
=> FilePath -- ^ Filename of executable.
|
=> FilePath -- ^ Filename of executable.
|
||||||
-> [String] -- ^ Arguments
|
-> [String] -- ^ Arguments
|
||||||
-> String -- ^ stdin to pass to the process
|
|
||||||
-> String -- ^ String to prefix to JSON-decode error.
|
-> String -- ^ String to prefix to JSON-decode error.
|
||||||
-> IO a
|
-> IO a
|
||||||
readJSONProcess exe args input err = do
|
readJSONProcess exe args err = do
|
||||||
output <- readProcess exe args input
|
output <- readProcess exe args ""
|
||||||
let eitherDecodedOutput = eitherDecodeStrict' . encodeUtf8 . Text.pack $ output
|
let eitherDecodedOutput = eitherDecodeStrict' . encodeUtf8 . Text.pack $ output
|
||||||
case eitherDecodedOutput of
|
case eitherDecodedOutput of
|
||||||
Left decodeErr -> error $ err <> decodeErr <> "\nRaw: '" <> take 1000 output <> "'"
|
Left decodeErr -> error $ err <> decodeErr <> "\nRaw: '" <> take 1000 output <> "'"
|
||||||
|
@ -264,7 +310,13 @@ platformIcon (Platform x) = case x of
|
||||||
data BuildResult = BuildResult {state :: BuildState, id :: Int} deriving (Show, Eq, Ord)
|
data BuildResult = BuildResult {state :: BuildState, id :: Int} deriving (Show, Eq, Ord)
|
||||||
newtype Platform = Platform {platform :: Text} deriving (Show, Eq, Ord)
|
newtype Platform = Platform {platform :: Text} deriving (Show, Eq, Ord)
|
||||||
newtype Table row col a = Table (Map (row, col) a)
|
newtype Table row col a = Table (Map (row, col) a)
|
||||||
type StatusSummary = Map Text (Table Text Platform BuildResult, Set Text)
|
data SummaryEntry = SummaryEntry {
|
||||||
|
summaryBuilds :: Table Text Platform BuildResult,
|
||||||
|
summaryMaintainers :: Set Text,
|
||||||
|
summaryReverseDeps :: Int,
|
||||||
|
summaryUnbrokenReverseDeps :: Int
|
||||||
|
}
|
||||||
|
type StatusSummary = Map Text SummaryEntry
|
||||||
|
|
||||||
instance (Ord row, Ord col, Semigroup a) => Semigroup (Table row col a) where
|
instance (Ord row, Ord col, Semigroup a) => Semigroup (Table row col a) where
|
||||||
Table l <> Table r = Table (Map.unionWith (<>) l r)
|
Table l <> Table r = Table (Map.unionWith (<>) l r)
|
||||||
|
@ -275,11 +327,11 @@ instance Functor (Table row col) where
|
||||||
instance Foldable (Table row col) where
|
instance Foldable (Table row col) where
|
||||||
foldMap f (Table a) = foldMap f a
|
foldMap f (Table a) = foldMap f a
|
||||||
|
|
||||||
buildSummary :: MaintainerMap -> Seq Build -> StatusSummary
|
buildSummary :: MaintainerMap -> ReverseDependencyMap -> Seq Build -> StatusSummary
|
||||||
buildSummary maintainerMap = foldl (Map.unionWith unionSummary) Map.empty . fmap toSummary
|
buildSummary maintainerMap reverseDependencyMap = foldl (Map.unionWith unionSummary) Map.empty . fmap toSummary
|
||||||
where
|
where
|
||||||
unionSummary (Table l, l') (Table r, r') = (Table $ Map.union l r, l' <> r')
|
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{finished, buildstatus, job, id, system} = Map.singleton name (Table (Map.singleton (set, Platform system) (BuildResult state id)), maintainers)
|
toSummary Build{finished, buildstatus, job, id, system} = Map.singleton name (SummaryEntry (Table (Map.singleton (set, Platform system) (BuildResult state id))) maintainers reverseDeps unbrokenReverseDeps)
|
||||||
where
|
where
|
||||||
state :: BuildState
|
state :: BuildState
|
||||||
state = case (finished, buildstatus) of
|
state = case (finished, buildstatus) of
|
||||||
|
@ -297,6 +349,7 @@ buildSummary maintainerMap = foldl (Map.unionWith unionSummary) Map.empty . fmap
|
||||||
name = maybe packageName NonEmpty.last splitted
|
name = maybe packageName NonEmpty.last splitted
|
||||||
set = maybe "" (Text.intercalate "." . NonEmpty.init) splitted
|
set = maybe "" (Text.intercalate "." . NonEmpty.init) splitted
|
||||||
maintainers = maybe mempty (Set.fromList . toList) (Map.lookup job maintainerMap)
|
maintainers = maybe mempty (Set.fromList . toList) (Map.lookup job maintainerMap)
|
||||||
|
(reverseDeps, unbrokenReverseDeps) = Map.findWithDefault (0,0) name reverseDependencyMap
|
||||||
|
|
||||||
readBuildReports :: IO (Eval, UTCTime, Seq Build)
|
readBuildReports :: IO (Eval, UTCTime, Seq Build)
|
||||||
readBuildReports = do
|
readBuildReports = do
|
||||||
|
@ -339,17 +392,18 @@ makeSearchLink evalId linkLabel query = "[" <> linkLabel <> "](" <> "https://hyd
|
||||||
statusToNumSummary :: StatusSummary -> NumSummary
|
statusToNumSummary :: StatusSummary -> NumSummary
|
||||||
statusToNumSummary = fmap getSum . foldMap (fmap Sum . jobTotals)
|
statusToNumSummary = fmap getSum . foldMap (fmap Sum . jobTotals)
|
||||||
|
|
||||||
jobTotals :: (Table Text Platform BuildResult, a) -> Table Platform BuildState Int
|
jobTotals :: SummaryEntry -> Table Platform BuildState Int
|
||||||
jobTotals (Table mapping, _) = getSum <$> Table (Map.foldMapWithKey (\(_, platform) (BuildResult buildstate _) -> Map.singleton (platform, buildstate) (Sum 1)) mapping)
|
jobTotals (summaryBuilds -> Table mapping) = getSum <$> Table (Map.foldMapWithKey (\(_, platform) (BuildResult buildstate _) -> Map.singleton (platform, buildstate) (Sum 1)) mapping)
|
||||||
|
|
||||||
details :: Text -> [Text] -> [Text]
|
details :: Text -> [Text] -> [Text]
|
||||||
details summary content = ["<details><summary>" <> summary <> " </summary>", ""] <> content <> ["</details>", ""]
|
details summary content = ["<details><summary>" <> summary <> " </summary>", ""] <> content <> ["</details>", ""]
|
||||||
|
|
||||||
printBuildSummary :: Eval -> UTCTime -> StatusSummary -> Text
|
printBuildSummary :: Eval -> UTCTime -> StatusSummary -> [(Text, Int)] -> Text
|
||||||
printBuildSummary
|
printBuildSummary
|
||||||
Eval{id, jobsetevalinputs = JobsetEvalInputs{nixpkgs = Nixpkgs{revision}}}
|
Eval{id, jobsetevalinputs = JobsetEvalInputs{nixpkgs = Nixpkgs{revision}}}
|
||||||
fetchTime
|
fetchTime
|
||||||
summary =
|
summary
|
||||||
|
topBrokenRdeps =
|
||||||
Text.unlines $
|
Text.unlines $
|
||||||
headline <> totals
|
headline <> totals
|
||||||
<> optionalList "#### Maintained packages with build failure" (maintainedList fails)
|
<> optionalList "#### Maintained packages with build failure" (maintainedList fails)
|
||||||
|
@ -358,6 +412,8 @@ printBuildSummary
|
||||||
<> optionalHideableList "#### Unmaintained packages with build failure" (unmaintainedList fails)
|
<> optionalHideableList "#### Unmaintained packages with build failure" (unmaintainedList fails)
|
||||||
<> optionalHideableList "#### Unmaintained packages with failed dependency" (unmaintainedList failedDeps)
|
<> optionalHideableList "#### Unmaintained packages with failed dependency" (unmaintainedList failedDeps)
|
||||||
<> optionalHideableList "#### Unmaintained packages with unknown error" (unmaintainedList unknownErr)
|
<> optionalHideableList "#### Unmaintained packages with unknown error" (unmaintainedList unknownErr)
|
||||||
|
<> optionalHideableList "#### Top 50 broken packages, sorted by number of reverse dependencies" (brokenLine <$> topBrokenRdeps)
|
||||||
|
<> ["","*:arrow_heading_up:: The number of packages that depend (directly or indirectly) on this package (if any). If two numbers are shown the first (lower) number considers only packages which currently have enabled hydra jobs, i.e. are not marked broken. The second (higher) number considers all packages.*",""]
|
||||||
<> footer
|
<> footer
|
||||||
where
|
where
|
||||||
footer = ["*Report generated with [maintainers/scripts/haskell/hydra-report.hs](https://github.com/NixOS/nixpkgs/blob/haskell-updates/maintainers/scripts/haskell/hydra-report.sh)*"]
|
footer = ["*Report generated with [maintainers/scripts/haskell/hydra-report.hs](https://github.com/NixOS/nixpkgs/blob/haskell-updates/maintainers/scripts/haskell/hydra-report.sh)*"]
|
||||||
|
@ -380,24 +436,29 @@ printBuildSummary
|
||||||
<> Text.pack (formatTime defaultTimeLocale "%Y-%m-%d %H:%M UTC" fetchTime)
|
<> Text.pack (formatTime defaultTimeLocale "%Y-%m-%d %H:%M UTC" fetchTime)
|
||||||
<> "*"
|
<> "*"
|
||||||
]
|
]
|
||||||
jobsByState predicate = Map.filter (predicate . foldl' min Success . fmap state . fst) summary
|
brokenLine (name, rdeps) = "[" <> name <> "](https://search.nixos.org/packages?channel=unstable&show=haskellPackages." <> name <> "&query=haskellPackages." <> name <> ") :arrow_heading_up: " <> Text.pack (show rdeps)
|
||||||
|
jobsByState predicate = Map.filter (predicate . foldl' min Success . fmap state . summaryBuilds) summary
|
||||||
fails = jobsByState (== Failed)
|
fails = jobsByState (== Failed)
|
||||||
failedDeps = jobsByState (== DependencyFailed)
|
failedDeps = jobsByState (== DependencyFailed)
|
||||||
unknownErr = jobsByState (\x -> x > DependencyFailed && x < TimedOut)
|
unknownErr = jobsByState (\x -> x > DependencyFailed && x < TimedOut)
|
||||||
withMaintainer = Map.mapMaybe (\(x, m) -> (x,) <$> nonEmpty (Set.toList m))
|
withMaintainer = Map.mapMaybe (\e -> (summaryBuilds e,) <$> nonEmpty (Set.toList (summaryMaintainers e)))
|
||||||
withoutMaintainer = Map.mapMaybe (\(x, m) -> if Set.null m then Just x else Nothing)
|
withoutMaintainer = Map.mapMaybe (\e -> if Set.null (summaryMaintainers e) then Just e else Nothing)
|
||||||
optionalList heading list = if null list then mempty else [heading] <> list
|
optionalList heading list = if null list then mempty else [heading] <> list
|
||||||
optionalHideableList heading list = if null list then mempty else [heading] <> details (showT (length list) <> " job(s)") list
|
optionalHideableList heading list = if null list then mempty else [heading] <> details (showT (length list) <> " job(s)") list
|
||||||
maintainedList = showMaintainedBuild <=< Map.toList . withMaintainer
|
maintainedList = showMaintainedBuild <=< Map.toList . withMaintainer
|
||||||
unmaintainedList = showBuild <=< Map.toList . withoutMaintainer
|
unmaintainedList = showBuild <=< sortOn (\(snd -> x) -> (negate (summaryUnbrokenReverseDeps x), negate (summaryReverseDeps x))) . Map.toList . withoutMaintainer
|
||||||
showBuild (name, table) = printJob id name (table, "")
|
showBuild (name, entry) = printJob id name (summaryBuilds entry, Text.pack (if summaryReverseDeps entry > 0 then " :arrow_heading_up: " <> show (summaryUnbrokenReverseDeps entry) <>" | "<> show (summaryReverseDeps entry) else ""))
|
||||||
showMaintainedBuild (name, (table, maintainers)) = printJob id name (table, Text.intercalate " " (fmap ("@" <>) (toList maintainers)))
|
showMaintainedBuild (name, (table, maintainers)) = printJob id name (table, Text.intercalate " " (fmap ("@" <>) (toList maintainers)))
|
||||||
|
|
||||||
printMaintainerPing :: IO ()
|
printMaintainerPing :: IO ()
|
||||||
printMaintainerPing = do
|
printMaintainerPing = do
|
||||||
maintainerMap <- getMaintainerMap
|
(maintainerMap, (reverseDependencyMap, topBrokenRdeps)) <- concurrently getMaintainerMap do
|
||||||
|
depMap <- getDependencyMap
|
||||||
|
rdepMap <- evaluate . calculateReverseDependencies $ depMap
|
||||||
|
let tops = take 50 . sortOn (negate . snd) . fmap (second fst) . filter (\x -> maybe False broken $ Map.lookup (fst x) depMap) . Map.toList $ rdepMap
|
||||||
|
pure (rdepMap, tops)
|
||||||
(eval, fetchTime, buildReport) <- readBuildReports
|
(eval, fetchTime, buildReport) <- readBuildReports
|
||||||
putStrLn (Text.unpack (printBuildSummary eval fetchTime (buildSummary maintainerMap buildReport)))
|
putStrLn (Text.unpack (printBuildSummary eval fetchTime (buildSummary maintainerMap reverseDependencyMap buildReport) topBrokenRdeps))
|
||||||
|
|
||||||
printMarkBrokenList :: IO ()
|
printMarkBrokenList :: IO ()
|
||||||
printMarkBrokenList = do
|
printMarkBrokenList = do
|
||||||
|
|
7
maintainers/scripts/haskell/maintainer-handles.nix
Normal file
7
maintainers/scripts/haskell/maintainer-handles.nix
Normal file
|
@ -0,0 +1,7 @@
|
||||||
|
# Nix script to lookup maintainer github handles from their email address. Used by ./hydra-report.hs.
|
||||||
|
let
|
||||||
|
pkgs = import ../../.. {};
|
||||||
|
maintainers = import ../../maintainer-list.nix;
|
||||||
|
inherit (pkgs) lib;
|
||||||
|
mkMailGithubPair = _: maintainer: if maintainer ? github then { "${maintainer.email}" = maintainer.github; } else {};
|
||||||
|
in lib.zipAttrsWith (_: builtins.head) (lib.mapAttrsToList mkMailGithubPair maintainers)
|
Loading…
Reference in a new issue