Skip to content
Snippets Groups Projects
Commit 57ce5465 authored by François Bobot's avatar François Bobot
Browse files

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

parent 105c6b83
No related branches found
No related tags found
1 merge request!28Fix #50
Pipeline #42840 passed
No preview for this file type
No preview for this file type
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" ]
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment