<commit_before>open Astring
open Rresult
open Lwt.Infix

module PathSet = Ivfs_merge.PathSet

(* FIXME: remove 9p from the module name! *)
let src = Logs.Src.create "i9p" ~doc:"Irmin to VFS"
module Log = (val Logs.src_log src: Logs.LOG)

module type S = sig
  type repo
  val create:
    ?subdirs:Vfs.Inode.t list -> string Irmin.Task.f -> repo -> Vfs.Dir.t
end

let ( >>*= ) x f =
  x >>= function
  | Ok y -> f y
  | Error _ as e -> Lwt.return e

let ok = Vfs.ok
let err_no_entry = Lwt.return Vfs.Error.no_entry
let err_is_dir = Lwt.return Vfs.Error.is_dir
let err_not_dir = Lwt.return Vfs.Error.not_dir
let err_read_only = Lwt.return Vfs.Error.read_only_file
let err_already_exists name = Vfs.error "Entry %S already exists" name
let err_conflict msg = Vfs.error "Merge conflict: %s" msg
let err_unknown_cmd x = Vfs.error "Unknown command %S" x
let err_invalid_commit_id id = Vfs.error "Invalid commit ID %S" id
let err_invalid_hash h x =
  Vfs.error "invalid-hash %S: %s" h (Printexc.to_string x)
let err_not_fast_forward = Vfs.error "not-fast-forward"

module Make (Store : Ivfs_tree.STORE) = struct<commit_msg>Fix log header in the ivfs library<commit_after>open Astring
open Rresult
open Lwt.Infix

module PathSet = Ivfs_merge.PathSet

(* FIXME: remove 9p from the module name! *)
let src = Logs.Src.create "ivfs" ~doc:"Irmin to VFS"
module Log = (val Logs.src_log src: Logs.LOG)

module type S = sig
  type repo
  val create:
    ?subdirs:Vfs.Inode.t list -> string Irmin.Task.f -> repo -> Vfs.Dir.t
end

let ( >>*= ) x f =
  x >>= function
  | Ok y -> f y
  | Error _ as e -> Lwt.return e

let ok = Vfs.ok
let err_no_entry = Lwt.return Vfs.Error.no_entry
let err_is_dir = Lwt.return Vfs.Error.is_dir
let err_not_dir = Lwt.return Vfs.Error.not_dir
let err_read_only = Lwt.return Vfs.Error.read_only_file
let err_already_exists name = Vfs.error "Entry %S already exists" name
let err_conflict msg = Vfs.error "Merge conflict: %s" msg
let err_unknown_cmd x = Vfs.error "Unknown command %S" x
let err_invalid_commit_id id = Vfs.error "Invalid commit ID %S" id
let err_invalid_hash h x =
  Vfs.error "invalid-hash %S: %s" h (Printexc.to_string x)
let err_not_fast_forward = Vfs.error "not-fast-forward"

module Make (Store : Ivfs_tree.STORE) = struct
{'fraction_non_alphanumeric': 0.10736468500443656, 'fraction_numerical': 0.0013309671694764862, 'mean_word_length': 3.9128540305010895, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 21, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3050121', 'n_tokens_mistral': 873, 'n_tokens_neox': 872, 'n_words': 267}