+

src/parse_config.ml

@@ -228,7 +228,8 @@ let ed25519 s =
   |> Result.map_error (fun e -> Fmt.str "%a" Mirage_crypto_ec.pp_error e)
   |> unwrap_res
 
-module Parse_alt_unit_names = struct
+(* TODO alt_unit_names jsont *)
+module Alt_unit_names = struct
   let rm_brackets s =
     let s = String.trim s in
     match
@@ -267,4 +268,9 @@ module Parse_alt_unit_names = struct
           | Some k -> k
         in
         (k, v))
+
+  let to_json_string l =
+    let l = List.map (fun (i, s) -> Fmt.str {|"%d": "%s"|} i s) l in
+    let s = String.concat "," l in
+    "{" ^ s ^ "}"
 end