Fixed option checker after changin option format.

svn path=/nixpkgs/trunk/; revision=9621

1 files changed, 21 insertions, 18 deletions

diff --git a/pkgs/build-support/checker/default.nix b/pkgs/build-support/checker/default.nix
index 989d5813383..ebf977d4755 100644
--- a/pkgs/build-support/checker/default.nix
+++ b/pkgs/build-support/checker/default.nix
@@ -3,24 +3,27 @@
 #
 options: configuration:
 with builtins;
-with (import ../../lib);
+let lib=(import ../../lib); in
+with lib;
 
-let
+let 
   findInList = p: list: default:
-	if (list == []) then default else
-	if (p (head list)) then (head list) else
-	findInList p (tail 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
+
+  checkAttrInclusion = s: a: b:
+	(
+	if (! isAttrs b) then s else
+	if (lib.getAttr ["_type"] "" b) == "option" then "" else
+	findInList (x : x != "") 
+		(map (x: checkAttrInclusion 
+			(s + "." + x) 
+			(__getAttr x a)
+			(lib.getAttr [x] null b)) 
+		(attrNames a)) ""
+	);
+in 	
+	checkAttrInclusion "" configuration options
+