Nous avons procédé ce jeudi matin 08 avril 2021 à une MAJ de sécurité urgente. Nous sommes passé de la version 13.9.3 à la version 13.9.5 les releases notes correspondantes sont ici:
https://about.gitlab.com/releases/2021/03/17/security-release-gitlab-13-9-4-released/
https://about.gitlab.com/releases/2021/03/31/security-release-gitlab-13-10-1-released/

Commit db7a31e3 authored by bguillaum's avatar bguillaum

Typos

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@8103 7838e531-6607-4d57-9587-6c381814729c
parent 23d224fb
...@@ -9,7 +9,7 @@ module Domain: sig ...@@ -9,7 +9,7 @@ module Domain: sig
val feature_names: unit -> string list option val feature_names: unit -> string list option
end end
(* [G_fs] define the ferute srtuctures that are used in graphs *) (* [G_fs] define the feature srtuctures that are used in graphs *)
module G_fs: sig module G_fs: sig
type t type t
......
...@@ -144,7 +144,6 @@ module P_graph = struct ...@@ -144,7 +144,6 @@ module P_graph = struct
| Some map -> map | Some map -> map
| None -> Log.fbug "[GRS] [Graph.build_extension] add_edge cannot fail in pattern extension (1)"; exit 2 | None -> Log.fbug "[GRS] [Graph.build_extension] add_edge cannot fail in pattern extension (1)"; exit 2
) ext_map_without_edges full_edge_list in ) ext_map_without_edges full_edge_list in
({ext_map = ext_map_with_all_edges; old_map = old_map_without_edges}, new_table) ({ext_map = ext_map_with_all_edges; old_map = old_map_without_edges}, new_table)
(* [tree_and_roots t] returns: (* [tree_and_roots t] returns:
......
...@@ -154,7 +154,7 @@ module Sequence = struct ...@@ -154,7 +154,7 @@ module Sequence = struct
List.iter List.iter
(fun module_name -> (fun module_name ->
if not (List.exists (fun modul -> modul.Modul.name = module_name) module_list) if not (List.exists (fun modul -> modul.Modul.name = module_name) module_list)
then Error.build ~loc:t.loc "sequence \"%s\", refers to the unknown module \"%s\"." then Error.build ~loc:t.loc "sequence \"%s\" refers to the unknown module \"%s\"."
t.name module_name t.name module_name
) t.def ) t.def
......
...@@ -29,9 +29,7 @@ module Error = struct ...@@ -29,9 +29,7 @@ module Error = struct
exception Run of (string * Loc.t option) exception Run of (string * Loc.t option)
exception Bug of (string * Loc.t option) exception Bug of (string * Loc.t option)
let build_ ?loc message = let build_ ?loc message = raise (Build (message, loc))
Log.fmessage "[%s] %s" (match loc with None -> "?" | Some x -> Loc.to_string x) message;
raise (Build (message, loc))
let build ?loc = Printf.ksprintf (build_ ?loc) let build ?loc = Printf.ksprintf (build_ ?loc)
let run_ ?loc message = raise (Run (message, loc)) let run_ ?loc message = raise (Run (message, loc))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment