Fix build with OCaml trunk.

Another instance of what is detailed in #2342 ; until #2298 is fixed I guess we'll have to live with commits like this. Signed-off-by: Emilio Jesus Gallego Arias <[email protected]>
ocaml · Jul 20, 2019 · d583f51 · d583f51
1 parent 6ebcb51
commit d583f51
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/lib.ml b/src/lib.ml
@@ -1153,8 +1153,8 @@ end = struct
               | Some (ts, file) ->
                 (Ok ts, Ok file)
               | None ->
-                let e = Error.no_solution_found_for_select ~loc in
-                (e, e)
+                let e () = Error.no_solution_found_for_select ~loc in
+                (e (), e ())
             in
             (res, { Resolved_select. src_fn; dst_fn = result_fn }
                   :: acc_selects)