2014-04-14 15:26:48 +01:00
|
|
|
|
{ config, lib, pkgs, ... }:
|
2009-09-10 14:53:31 +01:00
|
|
|
|
|
2014-04-14 15:26:48 +01:00
|
|
|
|
with lib;
|
2009-04-29 00:05:03 +01:00
|
|
|
|
|
|
|
|
|
let
|
|
|
|
|
|
2009-09-10 14:53:31 +01:00
|
|
|
|
failed = map (x: x.message) (filter (x: !x.assertion) config.assertions);
|
|
|
|
|
|
2013-10-23 17:21:15 +01:00
|
|
|
|
showWarnings = res: fold (w: x: builtins.trace "[1;31mwarning: ${w}[0m" x) res config.warnings;
|
|
|
|
|
|
2009-09-10 14:53:31 +01:00
|
|
|
|
in
|
2011-09-14 19:20:50 +01:00
|
|
|
|
|
2009-04-29 00:05:03 +01:00
|
|
|
|
{
|
|
|
|
|
|
2009-09-10 14:53:31 +01:00
|
|
|
|
options = {
|
|
|
|
|
|
|
|
|
|
assertions = mkOption {
|
2013-10-28 15:14:15 +00:00
|
|
|
|
type = types.listOf types.unspecified;
|
2013-10-23 15:59:33 +01:00
|
|
|
|
internal = true;
|
2009-09-10 14:53:31 +01:00
|
|
|
|
default = [];
|
2012-04-01 11:54:06 +01:00
|
|
|
|
example = [ { assertion = false; message = "you can't enable this for that reason"; } ];
|
2009-09-10 14:53:31 +01:00
|
|
|
|
description = ''
|
|
|
|
|
This option allows modules to express conditions that must
|
|
|
|
|
hold for the evaluation of the system configuration to
|
|
|
|
|
succeed, along with associated error messages for the user.
|
|
|
|
|
'';
|
|
|
|
|
};
|
|
|
|
|
|
2013-10-23 17:21:15 +01:00
|
|
|
|
warnings = mkOption {
|
|
|
|
|
internal = true;
|
|
|
|
|
default = [];
|
|
|
|
|
type = types.listOf types.string;
|
|
|
|
|
example = [ "The `foo' service is deprecated and will go away soon!" ];
|
|
|
|
|
description = ''
|
|
|
|
|
This option allows modules to show warnings to users during
|
|
|
|
|
the evaluation of the system configuration.
|
|
|
|
|
'';
|
|
|
|
|
};
|
|
|
|
|
|
2009-04-29 00:05:03 +01:00
|
|
|
|
};
|
|
|
|
|
|
2009-09-10 14:53:31 +01:00
|
|
|
|
config = {
|
|
|
|
|
|
2013-10-23 17:21:15 +01:00
|
|
|
|
# This option is evaluated always. Thus the assertions are checked
|
|
|
|
|
# as well. Hacky!
|
|
|
|
|
environment.systemPackages = showWarnings (
|
2009-09-10 14:53:31 +01:00
|
|
|
|
if [] == failed then []
|
2013-10-23 17:21:15 +01:00
|
|
|
|
else throw "\nFailed assertions:\n${concatStringsSep "\n" (map (x: "- ${x}") failed)}");
|
2009-09-10 14:53:31 +01:00
|
|
|
|
|
2009-04-29 00:05:03 +01:00
|
|
|
|
};
|
2011-09-14 19:20:50 +01:00
|
|
|
|
|
2009-04-29 00:05:03 +01:00
|
|
|
|
}
|