Import from Bin:a1af7a0 Src:9b90a6c7b farith:a93db57

Src/COLIBRI/simplex_ocaml/Dockerfile

-FROM ocaml/opam2:debian-8
-
-ENV OPAMSWITCH=4.07
-
-RUN [ "opam", "depext", "--install", "dune", "ocplib-simplex", "zarith", "parsexp", "menhir", "fmt", "spelll", "uutf", "gen" ]
-
-ENV OPAMSWITCH=4.08
-
-RUN [ "opam", "depext", "--install", "dune", "ocplib-simplex", "zarith", "parsexp", "menhir", "fmt", "spelll", "uutf", "gen" ]
-
-ENV OPAMSWITCH=4.09
-
-RUN [ "opam", "depext", "--install", "dune", "ocplib-simplex", "zarith", "parsexp", "menhir", "fmt", "spelll", "uutf", "gen" ]
-
-ENV OPAMSWITCH=4.10
+# ocaml/opam:debian-10-ocaml-4.11
+FROM ocaml/opam@sha256:e570e5dd74bb4986e022d5c25fe42579288d11fb0b60df13794632a8f0a110b6
 
 RUN [ "opam", "depext", "--install", "dune", "ocplib-simplex", "zarith", "parsexp", "menhir", "fmt", "spelll", "uutf", "gen" ]
 

Src/COLIBRI/simplex_ocaml/dolmen/src/typecheck/misc.ml

@@ -232,9 +232,9 @@ module Fuzzy_Map = struct
 
   let empty = I.empty
 
-  let rec seq_to_list_ s = match s() with
-    | Seq.Nil -> []
-    | Seq.Cons (x,y) -> x :: seq_to_list_ y
+  let rec seq_to_list_ s = match s with
+    | `Nil -> []
+    | `Cons (x,y) -> x :: seq_to_list_ (y ())
 
   let get t id =
     let s = Dolmen.Std.Id.(id.name) in