From: Vincent Hanquez Date: Fri, 26 Jun 2009 10:23:32 +0000 (+0100) Subject: missings are the not found, not the found. X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=00d6d44560faefd85ae372284ed6cafd7e28e449;p=xenclient%2Ftoolstack.git missings are the not found, not the found. --- diff --git a/xenvm/xenvm.ml b/xenvm/xenvm.ml index a0e5ac3..3a52ae4 100644 --- a/xenvm/xenvm.ml +++ b/xenvm/xenvm.ml @@ -704,7 +704,7 @@ let verify_config cfg = (if verify_hvm then [ ("hvm", List.mem Xc.CAP_HVM physinfo.Xc.capabilities) ] else []) @ (if verify_directio then [ ("directio", List.mem Xc.CAP_DirectIO physinfo.Xc.capabilities) ] else []) in - let missings = List.map fst (List.filter (fun (_, found) -> found) verify) in + let missings = List.map fst (List.filter (fun (_, found) -> not found) verify) in if missings <> [] then ( error "config requires %s" (String.concat ", " missings); exit 1