jon.recoil.org / odoc
this repo has no description
fork atom

Don't depend on odoc_utils in the driver

This might make the driver incompatible with some versions of Odoc.

authored by

Jules Aguillon and committed by jon.recoil.org c194958a c9cd4fcd

+3 -5
unified split
+1 -2
src/driver/dune
··· 14 logs 15 logs.fmt 16 eio_main 17 - sexplib 18 - odoc_utils))
··· 14 logs 15 logs.fmt 16 eio_main 17 + sexplib))
+2 -3
src/driver/util.ml
··· 1 - open Odoc_utils 2 open Bos 3 4 module StringSet = Set.Make (String) 5 module StringMap = Map.Make (String) ··· 26 (** Opens a file for writing and calls [f]. The destination directory is created 27 if needed. *) 28 let with_out_to filename f = 29 - let open ResultMonad in 30 let filename = Fpath.normalize filename in 31 OS.Dir.create (Fpath.parent filename) >>= fun _ -> 32 OS.File.with_oc filename ··· 35 Ok ()) 36 () 37 |> Result.join 38 - >>= fun () -> Ok () 39 40 let cp src dst = assert (lines_of_process Cmd.(v "cp" % src % dst) = [])
··· 1 open Bos 2 + 3 + let ( >>= ) = Result.bind 4 5 module StringSet = Set.Make (String) 6 module StringMap = Map.Make (String) ··· 27 (** Opens a file for writing and calls [f]. The destination directory is created 28 if needed. *) 29 let with_out_to filename f = 30 let filename = Fpath.normalize filename in 31 OS.Dir.create (Fpath.parent filename) >>= fun _ -> 32 OS.File.with_oc filename ··· 35 Ok ()) 36 () 37 |> Result.join 38 39 let cp src dst = assert (lines_of_process Cmd.(v "cp" % src % dst) = [])