From f5db143407641724b10226bb209f3ea2015a1551 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Nicol=C3=A1s=20Ojeda=20B=C3=A4r?= Date: Thu, 11 Jul 2019 07:06:59 +0200 Subject: [PATCH] Include . in extension MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Nicolás Ojeda Bär --- src/dialect.ml | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/dialect.ml b/src/dialect.ml index 69f73bda47f..1b3e517d384 100644 --- a/src/dialect.ml +++ b/src/dialect.ml @@ -50,8 +50,8 @@ let to_dyn { name ; file_kinds } = ] let extension { file_kinds = { Ml_kind.Dict.intf ; impl } ; _ } = function - | Ml_kind.Intf -> "." ^ intf.extension - | Impl -> "." ^ impl.extension + | Ml_kind.Intf -> intf.extension + | Impl -> impl.extension let preprocess { file_kinds = { Ml_kind.Dict.intf ; impl } ; _ } = function | Ml_kind.Intf -> intf.preprocess @@ -59,7 +59,7 @@ let preprocess { file_kinds = { Ml_kind.Dict.intf ; impl } ; _ } = function let ml_suffix { file_kinds = { Ml_kind.Dict.intf ; impl } ; _ } ml_kind = match intf.extension, impl.extension, ml_kind with - | "mli", _, Ml_kind.Intf | _, "ml", Impl -> None + | ".mli", _, Ml_kind.Intf | _, ".ml", Impl -> None | _, _, Intf -> Some ".mli" | _, _, Impl -> Some ".ml" @@ -82,8 +82,8 @@ let ocaml = ; format = Filter.No_filter } in - let intf = file_kind Ml_kind.Intf "mli" in - let impl = file_kind Ml_kind.Impl "ml" in + let intf = file_kind Ml_kind.Intf ".mli" in + let impl = file_kind Ml_kind.Impl ".ml" in { name = "ocaml" ; file_kinds = Ml_kind.Dict.make ~intf ~impl } @@ -110,8 +110,8 @@ let reason = ; format = Filter.Action (Loc.none, format) } in - let intf = file_kind Ml_kind.Intf "rei" in - let impl = file_kind Ml_kind.Impl "re" in + let intf = file_kind Ml_kind.Intf ".rei" in + let impl = file_kind Ml_kind.Impl ".re" in { name = "reason" ; file_kinds = Ml_kind.Dict.make ~intf ~impl }