+ let search_box = match search_box with `Bool b -> b | _ -> assert false in
+
+ let branding, brand,
+ has_brand_tagline, brand_tagline,
+ has_brand_description, brand_description =
+ match brand with
+ | `Null -> false, "", false, "", false, ""
+ | `String brand ->
+ let has_brand_tagline, brand_tagline =
+ match brand_tagline with
+ | `Null -> false, ""
+ | `String s -> true, s
+ | _ -> assert false in
+ let has_brand_description, brand_description =
+ match brand_description with
+ | `Null -> false, ""
+ | `String s -> true, s
+ | _ -> assert false in
+ true, brand,
+ has_brand_tagline, brand_tagline,
+ has_brand_description, brand_description
+ | _ -> assert false in
+