WIP: coverage of dependency

Author: sevanspowell

builder/comp-builder.nix

@@ -54,6 +54,7 @@ let self =
 
 # Coverage
 , doCoverage ? component.doCoverage
+, doCoverageNoRecurse ? false
 
 # Data
 , enableSeparateDataOutput ? component.enableSeparateDataOutput
@@ -76,9 +77,11 @@ let
 
   needsProfiling = enableExecutableProfiling || enableLibraryProfiling;
 
+  needsCoverage = doCoverage || doCoverageNoRecurse;
+
   configFiles = makeConfigFiles {
     inherit (package) identifier;
-    inherit component fullName flags needsProfiling;
+    inherit component fullName flags needsProfiling needsCoverage;
   };
 
   enableFeature = enable: feature:
@@ -122,7 +125,7 @@ let
       (enableFeature enableExecutableProfiling "executable-profiling")
       (enableFeature enableStatic "static")
       (enableFeature enableShared "shared")
-      (enableFeature doCoverage "coverage")
+      (enableFeature (doCoverage || doCoverageNoRecurse) "coverage")
     ] ++ lib.optionals (stdenv.hostPlatform.isMusl && (haskellLib.isExecutableType componentId)) [
       # These flags will make sure the resulting executable is statically linked.
       # If it uses other libraries it may be necessary for to add more
@@ -209,6 +212,13 @@ let
     componentDrv = drv;
   };
 
+  isComponentLibrary = d: (d.identifier == package.identifier);
+
+  fx = d:
+     if (doCoverage && isComponentLibrary d)
+     then (d.components.library.coveredNoRecurse or d)
+     else (d.components.library or d);
+
   drv = stdenv.mkDerivation (commonAttrs // {
     pname = nameOnly;
     inherit (package.identifier) version;
@@ -225,6 +235,9 @@ let
       env = shellWrappers;
       profiled = self (drvArgs // { enableLibraryProfiling = true; });
       covered = self (drvArgs // { doCoverage = true; });
+      coveredNoRecurse = self (drvArgs // { doCoverageNoRecurse = true; });
+      debugArgs = drvArgs;
+      inherit finalConfigureFlags;
     } // lib.optionalAttrs (haskellLib.isLibrary componentId) ({
         inherit haddock;
         inherit (haddock) haddockDir; # This is null if `doHaddock = false`
@@ -250,9 +263,9 @@ let
       # Not sure why pkgconfig needs to be propagatedBuildInputs but
       # for gi-gtk-hs it seems to help.
       ++ builtins.concatLists pkgconfig;
-  
+
     buildInputs = component.libs
-      ++ map (d: d.components.library or d) component.depends;
+      ++ map fx component.depends;
 
     nativeBuildInputs =
       [shellWrappers buildPackages.removeReferencesTo]
@@ -360,7 +373,7 @@ let
           fi
         done
       '')
-      + (lib.optionalString doCoverage ''
+      + (lib.optionalString (doCoverage || doCoverageNoRecurse) ''
         mkdir -p $out/share
         cp -r dist/hpc $out/share
       '')

builder/make-config-files.nix

@@ -1,6 +1,6 @@
 { stdenv, lib, haskellLib, ghc, nonReinstallablePkgs, runCommand, writeText, writeScript }:
 
-{ identifier, component, fullName, flags ? {}, needsProfiling ? false, chooseDrv ? drv: drv }:
+{ identifier, component, fullName, flags ? {}, needsProfiling ? false, needsCoverage ? false, chooseDrv ? drv: drv }:
 
 let
   flagsAndConfig = field: xs: lib.optionalString (xs != []) ''
@@ -43,13 +43,17 @@ let
   libDir         = "lib/${ghcCommand}-${ghc.version}";
   packageCfgDir  = "${libDir}/package.conf.d";
 
+
+  isComponentLibrary = d: d.identifier == identifier;
+
   # Filters out only library packages that for this GHC target
   # TODO investigate why this is needed
   # TODO find out why p ? configFiles helps (for instance for `R1909.aarch64-unknown-linux-gnu.tests.cabal-22.run.x86_64-linux`)
   libDeps = map chooseDrv (
     (if needsProfiling then (x: map (p: p.profiled or p) x) else x: x)
-    (lib.filter (p: (p ? configFiles) && p.configFiles.targetPrefix == ghc.targetPrefix)
-    (map getLibComponent component.depends))
+    (map (d: if (needsCoverage && isComponentLibrary d) then d.coveredNoRecurse else d)
+      (lib.filter (p: (p ? configFiles) && p.configFiles.targetPrefix == ghc.targetPrefix)
+        (map getLibComponent component.depends)))
   );
   cfgFiles =
     let xs = map