wip

Signed-off-by: Max Große <max12.gro@gmail.com>
ocaml · Jul 31, 2024 · e7024d4 · e7024d4
1 parent 212e62b
commit e7024d4
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 0 deletions.
diff --git a/otherlibs/configurator/src/dune_lang.ml b/otherlibs/configurator/src/dune_lang.ml
@@ -78,10 +78,14 @@ end
 
 type t =
   | Quoted_string of string
+  | Block_string of string
+  (* TODO(maxrn): Why no Block_string here? *)
   | List of t list
 
 let rec to_string t =
   match t with
   | Quoted_string s -> Escape.quoted s
+  (* TODO(maxrn): should we do something here?? *)
+  | Block_string s -> Escape.quoted s
   | List l -> Printf.sprintf "(%s)" (List.map l ~f:to_string |> String.concat ~sep:" ")
 ;;
diff --git a/otherlibs/configurator/src/dune_lang.mli b/otherlibs/configurator/src/dune_lang.mli
@@ -1,6 +1,7 @@
 (** Subset of dune_lang to print flag lists *)
 type t =
   | Quoted_string of string
+  | Block_string of string
   | List of t list
 
 val to_string : t -> string
diff --git a/src/dune_sexp/t.ml b/src/dune_sexp/t.ml
@@ -8,6 +8,7 @@ type t =
   | List of t list
   | Template of Template.t
 
+(* TODO(maxrn): could this also be a Block_string ? *)
 let atom_or_quoted_string s =
   if Atom.is_valid s then Atom (Atom.of_string s) else Quoted_string s
 ;;