Skip to content

Commit

Permalink
refactor: use [Filename.t] instead of [string] (#6984)
Browse files Browse the repository at this point in the history
Signed-off-by: Rudi Grinberg <[email protected]>
  • Loading branch information
rgrinberg authored Feb 3, 2023
1 parent 80c57c9 commit 9f2b230
Show file tree
Hide file tree
Showing 5 changed files with 5 additions and 5 deletions.
2 changes: 1 addition & 1 deletion src/dune_engine/cram_test.mli
Original file line number Diff line number Diff line change
Expand Up @@ -13,6 +13,6 @@ val dyn_of_t : t -> Dyn.t

val name : t -> string

val fname_in_dir_test : string
val fname_in_dir_test : Filename.t

val script : t -> Path.Source.t
2 changes: 1 addition & 1 deletion src/dune_engine/dune_project.mli
Original file line number Diff line number Diff line change
Expand Up @@ -153,7 +153,7 @@ val anonymous :
-> t

(** "dune-project" *)
val filename : string
val filename : Filename.t

(** Default language version to use for projects that don't have a
[dune-project] file. The default value is the latest version of the dune
Expand Down
2 changes: 1 addition & 1 deletion src/dune_engine/source_tree.mli
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
open Import

module Dune_file : sig
val fname : string
val fname : Filename.t

val alternative_fname : string

Expand Down
2 changes: 1 addition & 1 deletion src/dune_rules/workspace.mli
Original file line number Diff line number Diff line change
Expand Up @@ -101,7 +101,7 @@ module Clflags : sig
end

(** Default name of workspace files *)
val filename : string
val filename : Filename.t

val workspace : unit -> t Memo.t

Expand Down
2 changes: 1 addition & 1 deletion src/dune_sexp/decoder.mli
Original file line number Diff line number Diff line change
Expand Up @@ -187,7 +187,7 @@ val junk_everything : (unit, _) parser
val plain_string : (loc:Loc.t -> string -> 'a) -> 'a t

(** A valid filename, i.e. a string other than "." or ".." *)
val filename : string t
val filename : Filename.t t

(** A relative filename *)
val relative_file : string t
Expand Down

0 comments on commit 9f2b230

Please sign in to comment.