27 lines
678 B
Nix
27 lines
678 B
Nix
|
#
|
||
|
|
# Checks that all set options are described.
|
||
|
|
#
|
||
|
|
options: configuration:
|
||
|
|
with builtins;
|
||
|
|
with (import ../../lib);
|
||
|
|
|
||
|
|
let
|
||
|
|
findInList = p: list: default:
|
||
|
|
if (list == []) then default else
|
||
|
|
if (p (head list)) then (head list) else
|
||
|
|
findInList p (tail list) default;
|
||
|
|
|
||
|
|
attrSetToList = attrs: if (isAttrs attrs) then (concatLists (map
|
||
|
|
(s:
|
||
|
|
(map (l: ([s] ++ l))
|
||
|
|
(attrSetToList (getAttr s attrs))))
|
||
|
|
(attrNames attrs))) else [[]];
|
||
|
|
in
|
||
|
|
let opts = (map (a: a.name) options);
|
||
|
|
conf = attrSetToList configuration;
|
||
|
|
in
|
||
|
|
let res=findInList (a: (findInList (b: (eqLists a b)) opts null)==null) conf null;
|
||
|
|
in
|
||
|
|
#if res==null then null else map (l: ["<"] ++ l ++ [">"]) res
|
||
|
|
res
|