Attention une mise à jour du service Gitlab va être effectuée le mardi 14 décembre entre 13h30 et 14h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes.

Commit aec6676f authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

Encoding_select: fix a silly mistake

parent 3af28b7a
......@@ -90,7 +90,7 @@ module Lsinst = struct
let add_lsinst mls ls tyl tyv =
if ls_equal ls ps_equ ||
List.for_all ty_closed (oty_cons ls.ls_args ls.ls_value) &&
List.for_all ty_closed (oty_cons ls.ls_args ls.ls_value) ||
List.exists (fun ty -> not (ty_closed ty)) (oty_cons tyl tyv)
then mls else Lsmap.add ls tyl tyv mls
......
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