diff --git a/pkgs/development/haskell-modules/make-package-set.nix b/pkgs/development/haskell-modules/make-package-set.nix index bdc71b928a2c..0d936b21f41d 100644 --- a/pkgs/development/haskell-modules/make-package-set.nix +++ b/pkgs/development/haskell-modules/make-package-set.nix @@ -107,29 +107,35 @@ let # is that nix has no way to "passthrough" args while preserving the reflection # info that callPackage uses to determine the arguments). drv = if lib.isFunction fn then fn else import fn; - auto = builtins.intersectAttrs (lib.functionArgs drv) scope; + drvFunctionArgs = lib.functionArgs drv; + auto = builtins.intersectAttrs drvFunctionArgs scope; # Converts a returned function to a functor attribute set if necessary ensureAttrs = v: if builtins.isFunction v then { __functor = _: v; } else v; # this wraps the `drv` function to add `scope` and `overrideScope` to the result. - drvScope = - allArgs: - ensureAttrs (drv allArgs) - // { - inherit scope; - overrideScope = - f: - let - newScope = mkScope (fix' (extends f scope.__unfix__)); - in - # note that we have to be careful here: `allArgs` includes the auto-arguments that - # weren't manually specified. If we would just pass `allArgs` to the recursive call here, - # then we wouldn't look up any packages in the scope in the next interation, because it - # appears as if all arguments were already manually passed, so the scope change would do - # nothing. - callPackageWithScope newScope drv manualArgs; - }; + # it's a functor, so that we can pass through `functionArgs` + drvScope = { + __functor = + _: allArgs: + ensureAttrs (drv allArgs) + // { + inherit scope; + overrideScope = + f: + let + newScope = mkScope (fix' (extends f scope.__unfix__)); + in + # note that we have to be careful here: `allArgs` includes the auto-arguments that + # weren't manually specified. If we would just pass `allArgs` to the recursive call here, + # then we wouldn't look up any packages in the scope in the next interation, because it + # appears as if all arguments were already manually passed, so the scope change would do + # nothing. + callPackageWithScope newScope drv manualArgs; + }; + # `drvScope` accepts the same arguments as `drv` + __functionArgs = drvFunctionArgs; + }; in lib.makeOverridable drvScope (auto // manualArgs);