diff options
| author | Chimrod <> | 2024-12-14 23:06:12 +0100 |
|---|---|---|
| committer | Chimrod <> | 2025-01-03 15:05:00 +0100 |
| commit | 75f3eabb46eded01460f7700a75d094100047438 (patch) | |
| tree | 4dcee7d2fc9310ff41776d9df8986f5efa0db229 /lib/checks/nested_strings.ml | |
| parent | 289dc576624d4233116806e566bb791fee1de178 (diff) | |
Diffstat (limited to 'lib/checks/nested_strings.ml')
| -rw-r--r-- | lib/checks/nested_strings.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/checks/nested_strings.ml b/lib/checks/nested_strings.ml index e4ffb68..51c5258 100644 --- a/lib/checks/nested_strings.ml +++ b/lib/checks/nested_strings.ml @@ -13,16 +13,14 @@ type context = unit let initialize = Fun.id let finalize () = [] -module TypeBuilder = Compose.Expression (Get_type) - -module Expression = TypeBuilder.Make (struct +module Expression = Compose.TypeBuilder.Make (struct type t = Report.t list type t' = Report.t list let v : Get_type.t Lazy.t * t -> t' = snd (** Identify the expressions reprented as string. That’s here that the report - are added. + are added. All the rest of the module only push thoses warning to the top level. *) let literal : |