Remove unused make_var

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
ocaml · Jul 5, 2018 · e32cfe2 · e32cfe2
1 parent 82fe666
commit e32cfe2
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 16 deletions.
diff --git a/src/string_with_vars.ml b/src/string_with_vars.ml
@@ -16,21 +16,6 @@ let make_text ?(quoted=false) loc s =
   ; syntax_version = (1, 0)
   }
 
-let make_var ?(quoted=false) loc name =
-  { template =
-      { quoted
-      ; loc
-      ; parts =
-          [Var
-             { loc
-             ; name
-             ; payload = None
-             ; syntax = Percent
-             }]
-      }
-  ; syntax_version = (1, 0)
-  }
-
 let literal ~quoted ~loc s =
   { parts = [Text s]
   ; quoted

diff --git a/src/string_with_vars.mli b/src/string_with_vars.mli
@@ -27,7 +27,6 @@ val sexp_of_t : t -> Sexp.t
 val virt       : ?quoted: bool -> (string * int * int * int) -> string -> t
 val virt_var   : ?quoted: bool -> (string * int * int * int) -> string -> t
 val virt_text  : (string * int * int * int) -> string -> t
-val make_var   : ?quoted: bool -> Loc.t -> string -> t
 val make_text  : ?quoted: bool -> Loc.t -> string -> t
 
 val is_var : t -> name:string -> bool