Service_OS.rei

module Api: {
  let fold:
    (
      ~includeFiles: string => bool,
      ~excludeDirectory: string => bool,
      ~initial: 'a,
      ('a, string) => 'a,
      string
    ) =>
    Lwt.t('a);

  let glob:
    (~includeFiles: string=?, ~excludeDirectories: string=?, string) =>
    Lwt.t(list(string));

  let rmdir: (~recursive: bool=?, string) => Lwt.t(unit);
  let stat: string => Lwt.t(Luv.File.Stat.t);
  let readdir: string => Lwt.t(list(Luv.File.Dirent.t));
  let readFile: (~chunkSize: int=?, string) => Lwt.t(Bytes.t);
  let writeFile: (~contents: Bytes.t, string) => Lwt.t(unit);
  let rename:
    (~source: string, ~target: string, ~overwrite: bool) => Lwt.t(unit);
  let copy:
    (~source: string, ~target: string, ~overwrite: bool) => Lwt.t(unit);
  let mkdir: string => Lwt.t(unit);

  let mktempdir: (~prefix: string=?, unit) => Lwt.t(string);
  let delete: (~recursive: bool, string) => Lwt.t(unit);

  let openURL: string => bool;
};

module Effect: {
  let openURL: string => Isolinear.Effect.t(_);
  let stat: (string, Unix.stats => 'msg) => Isolinear.Effect.t('msg);
  let statMultiple:
    (list(string), (string, Unix.stats) => 'msg) => Isolinear.Effect.t('msg);

  module Dialog: {
    let openFolder:
      (~initialDirectory: string=?, option(Fp.t(Fp.absolute)) => 'msg) =>
      Isolinear.Effect.t('msg);
  };
};

module Sub: {
  let dir:
    (
      ~uniqueId: string,
      ~toMsg: result(list(Luv.File.Dirent.t), string) => 'msg,
      string
    ) =>
    Isolinear.Sub.t('msg);
};